MOTOROLA ASSEMBLER 13/05/82 13.01.57. SEITE NR 1 
HWTEST 

2 0800 BEGIN HWTEST 

3 

5 

6 * HARDVARETEST2 5-DEC-79 

7 

8 » INCLUDES IFU, DEVICES, MICROMEMORY 

9 

10 * AUTHORS: 

11 * JIRKA HOPPE 

12 * FARRELL OSTLER 
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HWTEST 

15 ************* JJt *************** ********** ***************** *** *************** 

17 

18 * DIAGNOSTIC PANEL M6882-S0FTWARE 23.85.88 

19 

20 • J.HOPPE 

21 * I.NOACK 

22 « R.OHRAN 

23 « W.WINIGER * 

24 « » 

25 **»************************#***************»c3!:i(*S#»[#VftS****S»********$*»#a* 

26 
27 

28 BIN EQU 0C09C 

29 «** HEXADECIMAL (ASCII) TO BINARY CONVERSION 
30 

31 « ARGUMENT: A = CHARACTER TO BE CONVERTED 

32 » RESULTS: CARRY = RESET, IF A CONTAINED A VALID HEX DIGIT 

33 « SET OTHERWISE 

34 » A = BINARY VALUE OF THE PARAMETER A IF CARRY RESET 

35 « UNDEFINED OTHERWISE 
36 

37 HEX EQU 0C8B3 

38 »** BINARY TO HEXADECIMAL (ASCII) CONVERSION 
39 

40 * ARGUMENT: A = FOUR BIT VALUE TO BE CONVERTED 

41 » RESULTS: A = ASCI I -CHARACTER REPRESENTING AS HEX DIGIT 

42 » THE FOUR BIT NUMBER CONTAINED IN PAR. A 
43 

44 R.CH EQU 0C024 

45 »»»« READ A CHARACTER FROM THE HP AND ECHO IT 
46 

47 * ARGUMENT: 

48 « RESULT: A = CHARACTER READ FROM THE UART 

49 * SIDE EFFECT: R.CH POLLS UNTIL A CHARACTER IS SENT TO IT 

58 « A = ESC -> CONTROL IS TRANSFERED TO THE SUBMONITOR 

51 « A = tC -> CONTROL IS TRANSFERED TO THE MONITOR 

52 * A = QUESTIONMARK -> MENU IS DISPLAYED 
53 

54 READ.CH EQU 0E083 SAME AS R.CH BUT WITHOUT ECHO AND WITHOUT INTER- 

55 «•••»•• PRETATION OF A 
56 

57 BREAK EQU 0C846 

58 ****« READ A CHARACTER FROM THE HP (WITHOUT POLLING) 

59 * RESULT: A = CHARACTER READ FROM THE UART 
68 « = 8 IF NO KEY WAS PRESSED 

61 » SIDE EFFECT: SEE R.CH 

62 

63 W.CH EQU 0CB51 

64 **** WRITE A CHARACTER TO THE HP 
65 

66 » ARGUMENT: A = CHARACTER TO BE WRITTEN 

67 » RESULT: 

68 • SIDE EFFECT: W.CH POLLS UNTIL IT MAY SEND THE CHARACTER 
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78 

71 
72 
73 
74 
75 
76 
77 
78 
79 
89 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
38 
99 
108 

101 

102 
103 
104 
105 
106 
107 
103 
169 
110 
111 
112 
113 
114 
115 
116 
117 
113 
119 
128 
121 
122 
123 



W.l. BLANK 
W. 2. BLANK 
V. 3. BLANK 

$***#**** 

V . STRING 

******** 



W.CRLF 

****** 



NO 



IN. HEX 

****** 



READ, HEX 

******** 

OUT. HEX 



IN. BYTE 

******* 



READ. BYTE 

*****#*«* 



EQU 0C062 
EQU 0C068 
EQU 0C05E 
WRITE N BLANKS TO THE HP 

EQU 0C86A 

WRITE A STRING TO THE HP 

ARGUMENT : X = ADDRESS OF THE STRING TO BE WRITTEN 

(TERMINATED BY A 8-BYTE) 
RESULT: 
SIDE EFFECT: POLLING MAY OCCUR, SINCE W. STRING CALLS W.CH 

X RETURNS THE ADDRESS OF THE 8-BYTE TERMINATING 

THE STRING +1 

EQU 0C078 

WRITE A CARRIAGE RETURN / LINE FEED TO THE HP 

ARGUMENT: 
RESULT: 

EQU 8C097 

WRITE AN EXCLAMATION POINT TO THE HP 

EQU 6C085 

INPUT A HEXADECIMAL DIGIT FROM THE HP (WITH ECHO) 

ARGUMENT: 

RESULT: A = FOUR BIT VALUE OF THE CHARACTER READ 

SIDE EFFECT: IN. HEX READS CHARACTERS FROM THE HP UNTIL A 

VALID HEX DIGIT IS ENCOUNTERED; CHARACTERS > '9' 

ARE CONVERTED TO CAPS 

EQU 0E08D IN. HEX WITHOUT ECHO 



EQU 0C090 

OUTPUT A HEXADECIMAL DIGIT TO THE HP 

ARGUMENT: A = FOUR BIT BINARY VALUE OF THE HEX. DIGIT TO BE 

WRITTEN 
RESULT : 

EQU 8C0BC 

INPUT TWO HEX DIGITS FROM THE HP INTERPRETING THEM AS A BYTE 

(WITH ECHO) 
ARGUMENT: 
RESULT: A = EIGHT BIT VALUE FORMED FROM THE TWO CHARACTERS 

READ 
SIDE EFFECT: IN. BYTE READS CHARACTERS FROM THE HP UNTIL TWO VALID 
HEX DIGITS ARE ENCOUNTERED 

EQU 0E01A IN. BYTE WITHOUT ECHO 
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125 OUT. BYTE EQU 8C0C9 

126 ........ OUTPUT AN EIGHT BIT NUMBER REPRESENTED BY TWO HEXADECIMAL DIGITS 

127 

128 * ARGUMENT: A = THE BYTE TO BE WRITTEN TO THE HP 

129 * RESULT: 
130 

131 IN. WORD EQU 0C0D8 

132 ....... INPUT FOUR HEX DIGITS FROM THE HP INTERPRETING THEM AS A SIXTEEN 

133 * BIT NUMBER (WITH ECHO) 
134 

135 » ARGUMENT: X = ADDRESS OF THE MEMORY LOCATION WHERE THE WORD 

136 « READ HAS TO BE STORED 

137 « RESULTS: M[X] AND M[X+1] CONTAIN THE DATA READ 

138 « SIDE EFFECT: IN. WORD READS CHARACTERS FROM THE HP UNTIL FOUR 

139 » VALID HEX DIGITS ARE ENCOUNTERED 
140 

141 READ. WORD EQU 0E027 IN. WORD WITHOUT ECHO 

3.42 **«**«*** 

143 

144 OUT. WORD EQU 0C0E3 

145 ........ OUTPUT A 16-BIT NUMBER REPRESENTED BY FOUR HEX DIGITS 

146 

147 « ARGUMENTS: X = ADDRESS OF THE MEMORY LOCATION CONTAINING THE 

148 « WORD TO BE WRITTEN 

149 « M[X] = HIGH BYTE, 

150 « M[X+1] = LOW BYTE OF THE WORD 

151 . RESULT; 
152 

153 FAST. READ EQU 0C0EE 

154 »«,„»..» TOTALIZE THE HP READING ITS CASSETTE AND TRANSFERING ONE FILE 
155 

156 LINE. READ EQU 0C0FB 

157 ,»»»»»»»» INITIALIZE THE HP READING ITS CASSETTE AND SENDING ONE LINE 
158 

159 
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161 
1G2 
163 
164 
165 
166 
167 
168 
169 
170 
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172 
173 
174 
175 
176 
177 
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184 
185 
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198 
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192 
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197 
198 
199 
200 
201 
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204 
205 
206 



MENU EQU 0C336 

.... WRITE THE MENU POINTED TO BY ACT. MENU ON THE SCREEN 

* 

ARGUMENT: ACT. MENU = ADDRESS OF THE MENU (ASCII STRINGS 
* AND ENTRYPTS) 



GET. KEY 



******* 



EQU 0C352 

PROMPT WITH CR/LF AND A '»', CALL GETWORD AND REPEAT THEN 
ACCEPTING A 'KEY' UNTIL (SKIPPING BLANKS) THIS IS THE FIRST CHA- 
RACTER OF ONE OF THE LINES OF THE MENU. CONVERT ALL CHARACTERS 
TO CAPS. JUMP THEN TO THE ROUTINE IDENTIFIED BY THIS 'KEY'. 



ARGUMENT: ACT.SUB.MON = ADDRESS OF THE MENU 
RESULTS: X.WORD (AT LOCATION 0F) = THE ADDRESS ENTERED BEFOR 

THE CHARACTER 
CARRY = FALSE IF NO ADDRESS AT ALL WAS ENTERED 
= TRUE IF X.WORD CONTAINES AN ADDRESS 
SIDE EFFECT: X IS DESTROID BY GET. KEY 



GET. WORD EQU 0C2FE 

.»«.««*. READ HEX DIGITS FROM THE HP SKIPPING BLANKS AT THE BEGINNIG INTER- 
PRETING THEM AS A NUMBER UNTIL A NONNUMERICAL CHARACTER IS 
ENCOUNTERED 

RESULTS; X.WORD (AT ADDRESS 0F) = BINARY VALUE OF THE LAST 

4 HEX DIGITS ENTERED 
A = THE NONHEX CHARACTER WHICH TERMINATED THE INPUT 
CARR (AT LOCATION 11) = IF THE FIRST CHARACTER 

ENTERED WAS NONHEXADECIMAL, 
= FF IF A NUMBER WAS ENTERED 
FIRST 

COMMANDS EQU 0C391 STORE THE CONTENT OF THE X-REGISTER INTO ACT.SUB.MON, 
**«*•«*« WRITE THE STRING POINTED TO BY MAIN. ID ON THE SCREEN 

« AND REPEAT THEN CALLING GET. KEY. 

» ARGUMENT: X = POINTER TO THE ACTUAL MENU. 



BOOT 



******** 



EQU 0E2C5 BOOTSTRAP THE PERSONAL COMPUTER 



SET. U. PC EQU 0E2D5 SET THE MICRO PROGRAM COUNTER 



LOAD. U. RAM EQU 0E3B3 LOAD THE MICRO-RAM FROM THE EPROM'S 

********** 
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208 PUSH.X EQU 0C259 

209 «**«« STORES X ON STACK 
210 

211 PULL.X EQU 0C270 

212 ***«* RETRIEVES X FROM STACK 
213 

214 PRINT. X EQU 0C287 

215 ....... PRINTS THE CONTENT OF THE X-REGISTER 

216 

217 WUM EQU 0C17B 

218 *** WRITE MICRO MEMORY ROUTINE 

219 « UMEM(X,B):=A 
220 

221 RUM EQU 0C190 

222 *** MICRO MEMORY READ ROUTINE 

223 « A:=UMEM(X,B) 
224 

225 STUPC EQU 0C1C2 

226 ****« STORE MICRO PROGRAM COUNTER 

227 * PREPARES MICROCONTROLLER FOR EXECUTION AT ADDRESS IN X 

228 • UPC:=X 
229 

230 EXX EQU 0C117 

231 «.« EXECUTES MICRO INSTRUCTION POINTED TO BY X 

232 « X POINTS TO MOST SIGNIFICANT BYTE 

233 » MOST SIGNIFICANT BYTE HAS LOWEST ADDRESS 

234 « X IS INCREMENTED BY 5 
235 

236 RCPU EQU 0C1F0 

237 ...» READ CPU DATA BUS 

238 « B GETS TOP HALF 

239 • A GETS BOTTOM HALF 
240 

241 WCPU EQU 0C1F7 

242 *«*« WRITE CPU DATA REGISTER 

243 * CPU BUS REGISTER := B*256 + A 

244 » DATA IS GATED TO BUS WHEN SOURCE 13 IS ADDRESSED 
245 

246 EPMIR EQU 0C15F 

247 .»«.. ENABLE PERSONAL COMPUTER MIR REGISTER 
248 

249 EDMIR EQU 0C158 

250 ..... DIAGNOSTIC PANEL MIR REGISTER IS ENABLED 
251 

252 LDMIR EQU 0C11D 

253 *«•»* DIAGNOSTIC PANEL MIR REGISTER IS LOADED WITH 

254 « DATA POINTED TO BY X 

255 » MOST SIGNIFICANT BYTE HAS THE LOWEST ADDRESS 

256 « X IS RETURNED INCREMENTED BY 5 

257 « RETURNS WITH DIAGNOSTIC MIR REGISTER ENABLED 

258 » NO CPU CLOCK PULSE IS GIVEN 

259 * USEFUL TO GATE DATE NON-DESTRUCTIVELY TO CPU BUS 
260 

261 MCLK EQU 0C1AC 

262 .... SEND ONE MICRO CLOCK PULSE (DISABLE CPU CLOCK) 
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265 
266 
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319 



RMM 



RMMS 

**** 



VMM 

*** 



VMMS 

***# 

LATCH 

***** 

UNLCH 

***** 

D2911 

***** 



E2911 

***** 

STOP 
START 

***** 

RESET 

***** 

READ. REG 

******** 



READ.R 

****** 

LOAD. REG 

******* 



WRITE. R 

******* 



EQU 0C1FE 
READ MAIN MEMORY 
B:= MAIN(X)DIV 256 
A:= MAIN(X)MOD 256 

EQU 0C211 

SHORT (QUICK) VERSION OF RMM 

MAY ONLY BE USED AFTER A LONG VERSION CALL HAS BEEN MADE AND 

NO OTHER DMIR OPERATIONS HAVE OCCURED 

EQU 0C228 
WRITE MAIN MEMORY 
MAIN(X):=256*B * A 

EQU 0C23D 

SHORT VERSION OF WMM. SEE RMMS COMMENTS 

EQU 8C151 

MICRO MEMORY ADDRESS REGISTER IS LATCHED 

EQU 0C14A 

MICRO MEMORY ADDRESS REGISTER IS UNLATCHED 

EQU 0C13E 

MICRO MEMORY ADDRESS OUTPUTS FROM PERSONAL COMPUTER 
ARE DISABLED AND ADDRESS REGISTER FROM DIAGNOSTIC 
PANEL IS ENABLED 

EQU 0C174 
REVERSE OF D2911 

EQU 0C16D 

DISABLE CPU CLOCK AND ENABLE SINGLE STEP MODE 

EQU 0C166 
ENABLE CPU CLOCK 

EQU 0C290 

RESET COMPUTER; INITIATE STAT8 VECTOR 



BF OR Q.REG) 



EQU 0C2DD 

READ A 2901 REGISTER 

ARGUMENT: B = NR OF THE REGISTER ( 

RESULT: X = THE VALUE 

EQU 0C2A5 

MIR USED BY THE READ. REG 



EQU 0C2AA 
LOAD A 2901 REGISTER 

ARGUMENTS: B = NR OF THE REGISTER ( 8..0F OF Q.REG) 
X = VALUE TO BE LOADED 



EQU 8C2A0 

MIR USED BY LOAD. REG 
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321 PRINT. BUS EQU 0E1AA 

322 «*«***»,« PRINTS AN ERRORMESSAGE AND THE REGISTERS WITH THE VALUE OF 

323 « THE CPU-BUS INSTEAD OF THE REGISTERS B,A 
324 

325 

326 

327 

328 

329 

330 * ASCII CHARACTERS 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 RET EQU 2000 (JMP 0) 'RETURN' - ADDRESS FOR PUSHX/PULLX 

371 

372 

373 

374 



LF 


EQU 


0A 


CR 


EQU 


0D 


DC1 


EQU 


11 


ESC 


EQU 


IB 


RS 


EQU 


IE 


EXCLAM 


EQU 


21 


AMPERSAND 


EQU 


26 


LOWER. E 


EQU 


65 


LOWER . P 


EQU 


70 


RUBOUT 


EQU 


7F 


BLANK 


EQU 


29 


LOWER. U 


EQU 


75 


QUESTION. M 


EQU 


3F 


PROMPT 


EQU 


2A 


COMMA 


EQU 


2C 


BACK. SLASH 


EQU 


5C 


* 


I/O ADDRESSES 


HP. STATUS 


EQU 


4000 


HP. DATA 


EQU 


4001 


MIR4 


EQU 


3C08 


MIR3 


EQU 


3C09 


MIR2 


EQU 


3C0A 


MIR1 


EQU 


3C0B 


MIR0 


EQU 


3C0C 


CPU1 


EQU 


3C0E 


CPU0 


EQU 


3C0F 


CON0 


EQU 


3C13 


CON1 


EQU 


3C12 


MEMPU 


EQU 


3C14 


SSP 


EQU 


3C15 


UAR1 


EQU 


3C10 


UAR0 


EQU 


3C11 


O.REG 


EQU 


10 


STACK 


EQU 


07F 


RET 


EQU 


2000 (JMP 


* 


EXTERNAL ENTRY 


MONITOR 


EQU 


0E000 
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376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
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387 
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389 
390 
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393 
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396 
397 
398 
399 
400 
401 
402 
403 



ft 


VARIABLES 




ACT. MENU 


EQU 


9 


(WORD 


0) 


MAIN. ID 


EQU 


0B 


(WORD 


0) 


SUB. ID 


EQU 


0D 


(WORD 


0) 


C 


EQU 





(BYTE 


0) 


X.SAVE 


EQU 


1 


(WORD 


0) 


ADDR 


EQU 


18 


(WORD 


0) 


X.WORD 


EQU 


0F 


(WORD 


0) 


CARR 


EQU 


11 


(BYTE 


0) 


CHECK, SUM 


EQU 


17 


(BYTE 


0) 


STAT0 


EQU 


3 


(BYTE 


0) 


MTMP4 


EQU 


4 


(BYTE 


0) 


MTMP3 


EQU 


5 


(BYTE 


0) 


MTMP2 


EQU 


6 


(BYTE 


0) 


MTMP1 


EQU 


7 


(BYTE 


0) 


MTMP0 


EQU 


8 


(BYTE 


0) 


TYPING 


EQU 


16 


(BYTE 


1) 


PSEUDO.IRQ 


EQU 


21 






XSUM 


EQU 


25 


(BYTE 


0) 


CRNT.ADR 


EQU 


26 


(WORD 


0) 


USER. DATA 


SET 


2C 







ADDRESS OF THE ACTUAL MENU 



DUMMY REGISTERS, 

FOR STRICTLY LOCAL USE ONLY 

USED BY DUMP AND DUMP. LINE 

SAVE WORD FOR X, USED BY GET. WORD, 

AND MENU 

'CARRY '-BYTE (RESULT OF GET. WORD) 

USED BY READBLOCK (LOAD) 



CONTROLS TYPING ERRORMESSAGES 

CHECKSUM (MICRO) 

CURRENT ADR (MICRO, MAIN MEMORY) 

NEXT FREE LOCATION FOR DATA IN THE 
ZERO-PAGE 



• K*»*tS»SS8k«»*t«*«t*S****«*****««*«ttt**«**SSS*»***t<***tili«S« 
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HWTEST 

405 » « 

406 * * 

407 » HARDWARE TEST SUBMONITOR * 



408 



■ 



409 * AUTHOR JIRKA HOPPE 

410 * * 

411 * INSTITUT OF INFORMATICS 

412 • ETH ZURICH 

413 * * 

414 « VERSION 17.6.79 

415 * * 
416 

417 » » 

418 * « 

419 ft************************************* «****#*««*******$*« a-: sufc 

420 USE HWTEST, DEVICES, MICROMEM 

421 CODE SET 

422 0000 ORG USER. DATA 

423 « DEFINITION OF VARIABLES 

424 002C 00 00 NEXT. IN. CH WORD POINTS TO THE NEXT ENTRY IN THE CHAIN 

425 002E 00 00 HELP1 WORD IS USED LOCALLY BY TEST PROCEDURES 

426 0030 00 00 HELP2 WORD "NO GLOBAL PROCEDURE MAKES USE OF IT 

427 0032 00 00 HELP3 WORD 
428 

429 USER. DATA SET 

430 

431 * ENTRY POINTS USED BY THE MAIN MONITOR 

432 0034 ORG 2003 

433 2003 7E E0 00 JMP MONITOR RETURN TO MAIN MONITOR 

434 2006 7E E0 00 JMP MONITOR RETURN TO MAIN MONITOR 

435 2009 7E 26 DF JMP DEVICES 

436 200C 7E 21 AC JMP HWTEST 

437 200F 7E 29 13 JMP MICROMEM 

438 2012 7E 20 12 JUMP JMP JUMP USED BY CHAIN FOR JUMP TO THE ROUTINE ENTRY 

439 * 

440 *****«#«** ***#********##**#*****#*********** * ************* 
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442 


2015 






443 








444 








445 








446 








447 








443 








449 








458 








451 








452 








453 








454 








455 








456 








457 








458 








459 








460 








461 








462 








463 








464 








465 








466 








467 








468 








469 








470 








471 








472 








473 


2015 


A6 00 


474 


2017 


36 




475 


2018 


08 




476 


2019 


A6 


00 


477 


20 IB 


B7 


20 13 


478 


201E 


A6 


01 


479 


2020 


B7 


20 14 


480 


2023 


08 




481 


2024 


08 




482 


2025 


DF 


2C 


483 


2027 


EE 


00 


484 


2029 


8D 


20 12 


485 


202C 


BD 


C0 46 


486 


202F 


DE 


2C 


487 


2031 


08 




488 


2032 


68 




489 


2033 


32 




490 


2034 


4A 




491 


2035 


36 




492 


2036 


26 


El 


493 


2038 


32 




494 


2039 


39 




495 








496 








497 
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BEGIN HARDWARE TEST 

DEF HWTEST , ENDTEST , CHAIN , WRITELN . A , SET . MAIN , ID 

DEF X.L. ROTATE, X.R. ROTATE 

DEF NEXTCHAIN, INSPECT 

USE IFU . TEST , IFU .CHAIN , IFU . CH . LEN 

USE MICROMEM 

X*****X**«**ft*****«*****S*S****«****«**8«**«**X**«***«*«*#« 

a 

MAIN HARDWARE TEST MONITOR 

* 

a*************************************** ****** **X*X*X*»**** 

* 

THIS PROCEDURE ALLOWS CHAINING OF A NUMBER OF HARDWARE TESTS 

* 

A CHAIN HAS FOLLOWING FORMAT: 
» #ITEMS ! ENTRY. ADR X. VALUE " 

* 

* #ITEMS - HOW MANY PAIRS (ENTRYADR, VALUE) ARE CONTAINED IN THE CHAIN 
ENTRY. ADR - ENTRY POINT OF THE SUBROUTINE 
X. VALUE - INITIAL VALUE FOR THE X REGISTER 

* 

« PROCEDURE CHAIN(X : tCHAINS); 
VAR COUNT, SAVEX : SAVES; 
BEGIN COUNT := Xt; INC(X); 
« REPEAT JUMP := Xt; INC(X,2); SAVEX := X; 
X := Xt; CALL(JUMP); 
X := SAVEX; INX(X,2); 
DEC(COUNT); 



CHAIN 



CHLOOP 



UNTIL COUNT 


= 




END; 






LDAA 


0,X 




PSH 


A 


SAVE COUNT 


INX 






P LDAA 


0,X 


GET ENTRY POINT 


STAA 


JUMP+1 




LDAA 


i,x 




STAA 


JUMP+2 




INX 






INX 






STX 


NEXT. IN. CH 


LDX 


0,X 


GET INITIAL X VALUE 


JSR 


JUMP 


EXECUTE ROUTINE 


JSR 


BREAK 


GET OUT BY 'ESC 


LDX 


NEXT. IN. CH 


INX 






INX 






PUL 


A 


GET COUNTER 


DEC 


A 




PSH 


A 


SAVE IT AGAIN 


BNE 


CHLOOP 




PUL 


A 


JUST CLEAN UP STACK 


RTS 







**'«i ********************************************* ************ 
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HWTEST HARDWARE 

498 * PROCEDURE NEXTCHAIN( X : tCHAIN); 

499 (« THIS PROCEDURE SWITCHES TO THE NEXT CHAIN POINTED BY X ») 

580 * 

581 203A DF 2C NEXTCHAIN STX NEXT. IN. CH 

582 203C 39 RTS 
583 

585 

586 « PROCEDURE LOOP.CHAIN( X : tCHAINS); 

587 * BEGIN LOOP CHAIN(X.WORD) END END; 

588 « 

589 283D CE 22 12 LOOPCHAIN LDX =GLOB. CHAIN 

510 2040 8D D3 BSR CHAIN 

511 2842 20 F9 BRA LOOPCHAIN 
512 

514 

515 » PROCEDURE LOOPROUTINE( X ); 

516 * BEGIN LOOP CALL(Xt) END END; 

517 * 

518 2044 DE 0F LOOP.RTNE LDX X.VORD 

519 2046 AD 00 JSR 0,X 

520 2048 20 FA BRA LOOP.RTNE 
521 

523 

524 * PROCEDURE SET. MAIN. ID( X : ^CHAINS); 

525 « BEGIN MAIN. ID := X END 

526 204A DF 0B SETMAINID STX MAIN. ID 

527 284C 39 RTS 

528 « 

530 

531 » PROCEDURE END. TEST; 

532 « BEGIN WRITE('END OF ',SUB.ID) END; 
533 

534 204D 36 END. TEST PSH A 

535 204E 96 16 LDAA TYPING TYPE CTRL 

536 2050 27 12 BEQ END. END NO TYPING AT ALL 

537 2052 81 02 CMPA =2 

538 2054 27 0E BEQ END. END ONLY ERROR MESSAGES 

539 2056 CE 20 69 LDX =END.TEXT 

540 2059 BD C8 6A JSR W. STRING 

541 285C DE 0D LDX SUB. ID 

542 205E BD C8 6A JSR W. STRING 

543 2861 BD C8 78 JSR W.CRLF 

544 2864 32 END. END PUL A 

545 2065 BD C2 90 JSR RESET 

546 2068 39 RTS 
547 

548 2069 45 4E 44 END. TEXT BYTE 'END OF ',0 

286C 20 4F 46 

286F 20 00 
549 

551 

552 « PROCEDURE PRINTAB( A, B, X) 



NEL 














MOTOROL 


A ASSEMBLER 13/05/82 13.01,57, SEI 




HWTEST 




HARDWARE 










553 










* 


BEGIN WRITE(Xt 


, A, B) END; 


554 










* 










555 


2071 


36 






PRINT. AB 


PSH 


A 




555 


2072 


BD 


C0 6A 






JSR 


W. STRING 




55? 


2075 


BD 


C0 


62 






JSR 


W.l. BLANK 




558 


2078 


BD 


C0 


eg 






JSR 


OUT. BYTE 




559 


207B 


BD 


C0 


62 






JSR 


W.l. BLANK 




560 


207E 


17 










TBA 






561 


207F 


BD 


CS 


eg 






JSR 


OUT. BYTE 




562 


2882 


BD 


C0 


78 






JSR 


W.CRLF 




563 


2085 


32 










PUL 


A 




564 


2086 


39 










RTS 






565 










* 










566 










**a*****s#**s*a*isa$*#****##************s***¥*********'#**:s*« 


567 










* 


PROCEDURE WRITELN(A); 




568 










* 


BEGIN WRITE(A) 


; CRLF END 


) 


569 










* 










570 


2087 


BD 


C0 


C9 


WRITELN.A JSR OUTBYTE 




571 


208A 


7E 


C0 


78 






JMP 


W.CRLF 


MAKES RTS 


572 










* 










573 










#*a***e*a*#*#*a#***#**#*#********#**#**ws*A»;i(t?a***jji***s*a** 


574 










* 










575 










* 


ROTATE 


X REGISTER ONE BIT 


TO LEFT 


576 










* 










577 


208D 


36 






X 


LROTATE 


PSH 


A 




578 


208E 


37 










PSH 


B 




579 


208F 


DF 


01 








STX 


X.SAVE 




580 


2091 


96 


01 








LDAA 


X.SAVE 


HIGH BYTE 


581 


2093 


48 










ASL 


A 


CARRY <- MSB; LSB <- 


582 


2094 


D6 02 








LDAB 


XSAVE+1 


LOWER BYTE; DOESN'T CHANGE CARRY 


583 


2096 


2A 


01 








BPL 


X.L.I 




584 


2098 


4C 










INC 


A 


SET LSB OF 'A' IF MSB OF 'B' WAS SET 


585 










* 








CARRY IS NOT CHANGED 


586 


2099 


59 






X 


L.l 


ROL 


B 


CARRY FROM 'ASL A' 


587 


209A 


97 


01 








STAA 


X.SAVE 




588 


289C 


D7 


02 








STAB 


XSAVE+1 




589 


209E 


DE 


01 








LDX 


X.SAVE 




590 


20A0 


33 










PUL 


B 




591 


20A1 


32 










PUL 


A 




592 


20A2 


39 










RTS 






593 










* 










594 










«*****#*4**S*#***9:?#***#*#St>|i*#S * *****#*###*#*#**»**!« Jt &»*#$« 


595 










* 










596 










a 


ROTATE 


X REGISTER ONE BIT 


TO RIGHT 


597 










* 










598 


20A3 


36 






X 


RROTATE 


PSH 


A 




599 


20A4 


37 










PSH 


B 




600 


28A5 


DF 


81 








STX 


X.SAVE 




601 


20A7 


96 


02 








LDAA 


X.SAVE+1 


LOWER 


602 


23A9 


D6 


01 








LDAB 


X.SAVE 


HIGHER 


603 


20AB 


44 










LSR 


A 




604 


20AC 


56 










ROR 


B 




605 


20AD 


24 


02 








BCC 


X.R.I 




606 


20AF 


8A 


80 








ORAA 


=80 


SET MSB 


607 


20B1 


97 


02 




X. 


R.l 


STAA 


X.SAVE+1 




608 


20B3 


D7 


61 








STAB 


X.SAVE 




609 


20B5 


DE 


01 








LDX 


X.SAVE 





NEL 
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HWTEST 




HARDWARE 








610 


20B7 


33 








PUL 


B 




611 


20B8 


32 








PUL 


A 




612 


20B9 


39 








RTS 






613 










* 








614 










**«s**aft***s*aa<si****##*>?!****a*******»*a-«#*s*«*ss«w 


615 










* 








616 










* PROCEDURE TESTBUS; 




617 










• (• 


TEST FOR 


SHORT CONNECTION ON THE BUS *) 


618 










BEGIN SUB. ID 


:= 'CPU BUS 


J 


619 










* MIR := (1 


- OR ZA 8 - PANEL); 


620 










X 


:- l; 






621 










FOR B := 2 


TO 8 BY -1 




622 










S 


FOR A := 


16 TO BY 


-1 DO 


623 










* 


BUS :- 


X; 




624 










* 


IF BUS 


<> X THEN PRINTBUS(X) END; 


625 










« 


X.L ROTATE; 




626 










« 


END; 






627 










* 


X := 0FFFEH; 




628 










END; 






629 










END 


J 






630 










* 








631 


20BA 


CE 


20 


F2 


TESTBUS 


LDX 


=BUSTEXT 




632 


20BD 


DF 


BD 






STX 


SUB. ID 




633 


20BF 


CE 


C2 


A5 




LDX 


=READ.R 




634 


20C2 


BD 


CI 


ID 




JSR 


LDMIR 




635 


20C5 


86 


FD 






LDAA 


=0FD 


SOURCE := PANEL 


636 


20C7 


B7 


3C 


0C 




STAA 


MIR0 




637 


20CA 


BD 


CI 


58 




JSR 


EDMIR 




638 


20CD 


CE 


00 


01 




LDX 


=1 


ROTATING 1 


639 


20D0 


CO 


02 






LDA8 


=2 




640 


2BD2 


86 


10 




FORBUS1 


LDAA 


-16Z 




641 


20D4 


FF 


3C 


0E 


F0RBUS2 


STX 


CPU1 




642 


28D7 


BC 


3C 


0E 




CPX 


CPU1 




643 


20DA 


27 


03 






BEQ 


TSTBS1 




644 


20DC 


BD 


El 


AA 




JSR 


PRINTBUS 




645 


20DF 


BD 


28 


8D 


TSTBS1 


JSR 


X.L. ROTATE 


646 


20E2 


4A 








DEC 


A 




647 


20E3 


26 


EF 






BNE 


F0RBUS2 




648 


28E5 


CE 


FF 


FE 




LDX 


=0FFFE 


ROTATING 


649 


20E8 


5A 








DEC 


B 




650 


20E9 


26 


E7 






BNE 


FORBUS1 




651 


20EB 


BD 


CI 


5F 




JSR 


EPMIR 




652 


20EE 


BD 


28 


4D 




JSR 


END. TEST 




653 


20F1 


39 








RTS 






654 










* 








655 


20F2 
28F5 

2BF8 


43 
20 
53 


50 
42 

00 


55 
55 


BUSTEXT 


BYTE 


'CPU BUS 1 





656 










S 








657 










*#******»: *************S«SS*S«S*S****X**««##tt*«*#* 


658 










* 








659 










INSPECT 


EQU 


# 




660 


20FA 










BEGIN 


INSPECT 




661 










VALUE 


EQU 


HELP1 




662 










CRNT . ADR 


EQU 


HELP2 




663 










* 








664 










» 


FORMA1 







13.01.57, SEITE NR 



14 



NEL 
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HWTES1 




HARDWARE INSPECT 






665 










* 


ADDRESS 'I' VALUE [ ' :' NEWVALUE ] [','] 


666 










* 


ADDRESS = UP TO 4 HEX DIGIT 


667 










* 


NEWVALUE = UP TO 4 HEX DIGIT 


668 










* 






669 










* 


PROCEDURE INSPECT; 


670 










* 


BEGIN X := X.WORD; 


671 










* 


LOOP 


672 










* 




CRNT.ADR := X; (A,B) := RMM(X); 


673 










* 




VALUE := (A,B); OUT. WORD( VALUE); 


674 










* 




R.CH(A); 


675 










* 




IF A = ' : ' THEN 


676 










* 




GET, WORD; (A,B) :- X.WORD; X := CR 


677 










* 




END; 


678 










* 




IF A = BACKSLASH 


679 










* 




THEN 


680 










* 




DEC(X); 


681 










* 




ELSIF A = ■ , ' 


682 










* 




THEN 


683 










* 




INC(X); 


684 










* 




ELSE 


685 










« 




EXIT 


686 










* 




END; 


687 










* 




CRNT.ADR :- X; 


688 










« 




CRLF; OUT.WORD(CRNT.ADR); WRITE( ' ') 


689 










« 


END 


698 










* 


END 


691 










* 






692 


28FA 


DE 


0F 






LDX 


X.WORD 


693 


20FC 


DF 


30 






STX 


CRNT.ADR 


694 


2BFE 


BD 


CI 


58 




JSR 


EDMIR 


695 


2101 


BD 


CI 


FE 


LOOP 


JSR 


RMM 


696 


2104 


D7 


2E 






STAB 


VALUE HIGHER PART 


697 


2106 


97 


2F 






STAA 


VALUE+1 LOWER PART 


698 


2108 


CE 


08 


2E 




LDX 


-VALUE 


699 


210B 


BD 


C8 


E3 




JSR 


OUT. WORD 


700 


210E 


BD 


C0 


24 




JSR 


R.CH 


701 


2111 


81 


3A 






CMPA 


_ 1 , 1 


702 


2113 


26 


0E 






BNE 


ENDIF1 


703 


2115 


BD 


C2 


FE 




JSR 


GET. WORD 


784 


2118 


36 








PSH 


A SAVE DELIMITER 


705 


2119 


D6 


0F 






LDAB 


X.WORD HIGHER PART 


706 


211B 


96 


18 






LDAA 


X.WORD+1 LOWER PART 


707 


211D 


DE 


30 






LDX 


CRNT.ADR 


708 


211F 


BD C2 


28 




JSR 


WMM 


709 


2122 


32 








PUL 


A GET DELIMITER BACK 


710 


2123 


81 


2C 




ENDIF1 


CMPA 


=COMMA 


711 


2125 


27 08 






BEQ 


ENDIF2 


712 


2127 


81 


5C 






CMPA 


°=BACK. SLASH 


713 


2129 


27 09 






BEQ 


ENDIF3 


714 


212B 


BD 


CI 


5F 




JSR 


EPMIR 


715 


212E 


39 








RTS 




716 
















717 


212F 


DE 


30 




ENDIF2 


LDX 


CRNT.ADR 


718 


2131 


08 








INX 




719 


2132 


20 03 






BRA 


ENDIF 


720 


2134 


DE 


30 




ENDIF3 


LDX 


CRNT.ADR 


721 


2136 


09 








DEX 
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CRNT.ADR; WMM(A,B,X); 



NEL 
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HWTEST 


HARDWARE 


INSPECT 




722 


2137 


DF 30 




END IF 


STX 


CRNT.ADR 


723 


2139 


BD C8 


78 






JSR 


W.CRLF 


724 


213C 


BD C2 


87 






JSR 


PRINT. X 


725 


213F 


BD C0 


62 






JSR 


W.l. BLANK 


726 


2142 


20 BD 








BRA 


LOOP 


727 


2144 










END 


INSPECT 


728 








* 








729 








**a*S****«*#**##]it)S***«****## ***#**«**»?;**# $*#**« 


730 








« 








731 








* 


PROCEDURE MANUAL. CHECK; 


732 








* 


(• 


ALLOWS MANUAL SETTING OF MICROINSTRUCTIONS, 


733 








* 




CPU-BUS AND CLOCK CONTROL 


734 








* 




=> CPU-BUS IS ADDITIONALLY CONTROLLED BY THE 


735 








* 




BUS SOURCE FIELD OF A MICROINSTRUCTION «) 


736 








« 


BEGIN EDMIR; 




737 








* 




LOOP 




738 








s 




WRITELN(CPUBUS, ' \UAR); 


739 








* 




READ(A) 




748 








* 




CASE A OF 


741 








* 




'I': FOR 


B := 4 TO BY -1 DO 


742 








* 




MIR[I] := IN. BYTE; EDMIR 


743 








* 




'B' 


CPU 


BUS := HEX. IN 


744 








* 




'G' 


START RUNNING CLOCK 


745 








* 




'H' 


HALT RUNNIG CLOCK 


746 








* 




CR 


RESET; EXIT 


747 








* 




ELSE ONE SINGLE STEP 


748 








« 




END; 




749 








* 




WRITE( ' 


) 


750 








* 




END 




751 








* 


END 




752 








* 








753 


2144 


BD CI 


58 


MANUALCHK JSR EDMIR 


754 


2147 


FE 3C 


0E 


M. 


LOOP 


LDX 


CPU1 


755 


214A 


BD C2 


87 






JSR 


PRINTX 


756 


214D 


BD C8 


62 






JSR 


W.l. BLANK 


757 


2150 


B6 3C 


10 






LDAA 


UAR1 


758 


2153 


84 0F 








ANDA 


=0F MASK OFF NOT USED BITS 


759 


2155 


BD C0 


CO 






JSR 


OUT. BYTE 


768 


2158 


B6 3C 


11 






LDAA 


UAR0 


761 


215B 


BD C0 


eg 






JSR 


OUT. BYTE 


762 


215E 


BD C0 


78 






JSR 


W.CRLF 


763 


2161 


BD C0 


24 






JSR 


R.CH 


764 


2164 


81 49 








CMPA 


= 'I> 


765 


2166 


26 16 








BNE 


B. LABEL 


766 


2168 


C6 05 




I, 


LABEL 


LDAB 


=5 


767 


2 16 A 


CE 3C 08 






LDX 


=MIR4 


768 


216D 


BD C8 


BC 


I. 


LOOP 


JSR 


IN. BYTE 


769 


2170 


A7 00 








STAA 


0,X 


770 


2172 


08 








INX 




771 


2173 


BD C0 


62 






JSR 


W.l. BLANK 


772 


2176 


5A 








DEC 


B 


773 


2177 


26 F4 








BNE 


I. LOOP 


774 


2179 


BD CI 


58 






JSR 


EDMIR 


775 


217C 


20 C9 








BRA 


M.LOOP 


776 


217E 


81 42 




B. 


LABEL 


CMPA 


= 'B' 


777 


2188 


26 08 








BNE 


G. LABEL 


778 


2182 


CE 3C 


0E 






LDX 




=CPU1 



NEL 
HWTEST 



HARDWARE 
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779 2185 

780 2188 

781 218A 

782 218C 

783 218E 

784 2191 

785 2193 

786 2195 

787 2197 

788 219A 

789 219C 

790 219E 

791 21A0 

792 21 A3 

793 21A4 

794 21A7 

795 21AA 
796 

797 
798 
799 
800 
801 
882 
803 

804 21 AC 

805 21AF 

806 21B1 
887 21B4 
808 21B7 
809 

810 
811 

812 21BA 
21BD 
21C0 

813 21C1 

814 21C2 
21C5 
21C8 
21CB 
21CE 
21D1 

815 21D2 

816 21D4 
21D7 
2 IDA 
21DD 
21E0 

817 21E3 

818 21E5 
21E8 
21EB 
21EE 

819 21F0 

820 21F2 
21F5 



BD C0 D8 JSR 

20 BD BRA 

81 47 G. LABEL CMPA 

26 05 BNE 

BD CI 66 JSR 

20 B4 BRA 

81 48 H, LABEL CMPA 

26 05 BNE 

BD CI 6D JSR 

20 AB BRA 

81 0D CR. LABEL CMPA 

26 84 BNE 

BD C2 90 JSR 

39 RTS 

B7 3C 15 ELSE. LAB STAA 

BD C0 62 JSR 

20 9B BRA 



IN. WORD 
M.LOOP 
= 'G' 
H. LABEL 
START 
M.LOOP 
= 'H' 

CR. LABEL 
STOP 
M.LOOP 
=CR 

ELSE. LAB 
RESET 

SSP SINGLE STEP 

W.l. BLANK 

M.LOOP 



*********«*******##********»*# ^********ac)i;**S; ****** «*«*****« 



ENTRY TO THE HARDWARE MONITOR 

* 

****** **3ta**#******a#s*s*a*s)«******#*¥*;K*#*!s«!*a*s ** **#**«***:$ 
* 

CE 21 BA HWTEST LDX =HW.TEXT 

DF 0B STX MAIN. ID 

BD C2 90 JSR RESET 

CE 21 CI LDX =HW.MENU 

7E C3 91 JMP COMMANDS 

* 



48 57 54 HWTEXT BYTE 
45 53 54 



86 

58 28 45 

53 45 43 
55 54 45 
28 43 48 
41 49 4E 
00 

20 3D 
4C 28 4C 
4F 4F 50 
28 52 4F 
55 54 49 
4E 45 00 
20 44 

54 28 54 
45 53 54 
28 42 55 
53 80 

28 BA 
48 28 44 
4F 28 42 



HW.MENU BYTE 
BYTE 



WORD 
BYTE 



'HWTEST', 8 



06 



'X EXECUTE CHAIN', 8 



LOOPCHAIN 

'L LOOP ROUTINE' ,0 



WORD 


LOOP.RTNE 


BYTE 


'T TEST BUS',0 


WORD 


TESTBUS 


BYTE 


'H DO BY HAND',0 



IS 


tL 

HWTEST 




HARDWARE 






MUIUKULA ASStMBLtK 




21F8 


59 


20 


48 












21FB 


41 


4E 


44 












21FE 


68 














821 


2 IFF 


21 


44 








WORD 


MANUALCHK 


822 


2201 
2204 


55 
46 


20 
55 


49 
00 






BYTE 


'U IFU',0 


823 


2207 


24 


67 








WORD 


IFU.TEST 


824 


2209 
220C 

220F 


4D 
4D 
00 


20 
45 


55 
4D 






BYTE 


'M UMEM',8 


825 


2210 


29 


13 








WORD 


MICROMEM 


826 










* 








827 


2212 


09 






GLOB. 


CHAIN BYTE 


GL.CH.LEN+IFU.CH.LEN 


828 


2213 
2216 


20 
BA 


4A 


21 






WORD 


SET.MAIN.ID.HVTEXT 


829 


2217 
221A 


28 
08 


BA 


80 






WORD 


TESTBUS,0 


830 


221B 
221E 


28 
D7 


3A 


24 






WORD 


NEXTCHAIN,IFU.CHAIN-1 


831 










GL.CH 


.LEN 


EQU 


•-1-GLOB. CHAIN/4 


832 










S¥****##S&S**#****S*****#*«***SS*****#*#W 


833 










* 








834 


221F 












END 


HARDWARE 
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HWTEST 

836 

337 t(i*KS*lll!SK4S*SS***t*****l*i|*Jll*8S:MltSl«;**t*»*SJ**S!!*** 

838 

839 » IFU TESTS 

846 

841 • 

842 • 

843 « 13 OCT 1979 

844 * F. OSTLER 

845 « JIRKA HOPPE 
846 

848 221F BEGIN IFU 

849 USE END. TEST, CHAIN, NEXTCHAIN, SET. MAIN. ID .INSPECT 

850 DEF IFU. TEST, IFU. CHAIN, IFU. CH.LEN 

851 * 

852 * LOAD AND READ F REGISTER 
853 

854 « FORMAT: F 
855 

856 * PROCEDURE TEST.FREG; 

857 » BEGIN 

858 » SUB. ID := 'LOAD. F.REG' ; 

859 * EDMIR; 

860 « MIR : = SAFE. STATE; 

861 * MIR0 := (DST=F, SRC-PANEL); 

862 « FOR X := TO FFFF DO 

863 « CPU := X; SSP; 

864 » MIR0 := (DST— , SRC=F); 

865 • IF X # CPU THEN PRINTBUS; (• B,A=ACTUAL, X-EXPECTED*) 

866 * MIR0 := (DST=F, SRC=PANEL); 

867 « END; 

868 * END; 
869 

870 22 IF CE 22 50 TEST.FREG LDX =LD.F.TEXT 

871 2222 DF 0D STX SUB. ID 

872 2224 BD CI 58 JSR EDMIR 

873 2227 BD CI FE JSR RMM ONLY TO PUT MIR IN A SAFE STATE 

874 222A 86 ED LDAA =0ED DST=F, SRC=PANEL 

875 222C B7 3C 0C STAA MIR0 

876 222F CE 00 00 LDX =00 

877 2232 FF 3C 0E FORI STX CPU1 

878 2235 B7 3C 15 STAA SSP 

879 2238 86 FE LDAA =0FE DST—, SRC=F 

880 223A B7 3C 6C STAA MIR0 

881 223D BC 3C 0E CPX CPU1 

882 2240 27 03 BEQ ENDIF1 

883 2242 BD El AA JSR PRINTBUS *» B,A=ACTUAL, X=EXPECTED ******* 

884 2245 86 ED ENDIF1 LDAA =0ED DST=F, SRC=PANEL 

885 2247 B7 3C 0C STAA MIR0 

886 224A 08 INX 

887 224B 26 E5 BNE FORI ZERO IF X ROLLED FROM FFFF TO 

888 224D 7E 28 4D JMP END. TEST 

889 » 

890 2250 4C 4F 41 LD.F.TEXT BYTE 'LOAD. F. REG' ,0 
2253 44 2E 46 



NEL 
HWTEST 



IFU 



MOTOROLA ASSEMBLER 13/05/82 13.81.57. SEITE NR 20 



2256 
2259 

891 

892 

893 

894 

895 

896 

897 

898 

899 

980 

981 

902 

903 

904 

905 

906 

907 

908 

909 

910 225B 

911 225E 

912 2260 

913 2263 

914 2266 

915 2268 

916 226B 

917 226E 

918 2271 

919 2274 

920 2276 

921 2279 

922 227C 

923 227E 

924 2281 

925 2283 

926 2286 

927 2287 

928 2289 
929 

930 228C 
228F 
2292 
2295 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 



2E 52 45 

47 03 



CE 22 8C 
DF 0D 
BD CI 58 
BD CI FE 
86 20 
B7 3C 0C 
CE 00 00 
FF 3C 0E 
B7 3C 15 
86 F2 
B7 3C 8C 
BC 3C BE 
27 03 
BD El AA 
86 20 
B7 3C 0C 
08 

26 E5 
7E 28 4D 

4C 4F 41 

44 20 4F 
46 46 53 

45 54 00 



* 

« LOAD AND READ OFFSET 

* 

» PROCEDURE TEST. OFFSET; (*LOAD ALL COMBINATIONS INTO OFFSET AND READ*) 

* BEGIN 

SUB. ID :- 'LOAD. OFFSET'; 

EDMIR; 

MIR := SAFEST ATE; 

MIR0 := (DST=OFFSET, SRC=PANEL); 

FOR X := TO 0FFFF DO 

CPU:=X; SSP: 

MIR0 :=(DST~, SRC=OFFSET); 

IF X # CPU THEN PRINTBUS; (* B,A = ACTUAL, X = DESIRED*) 

MIR0:=(DST=OFFSET, SRC=PANEL); 
END; 

* END; (*TEST. OFFSET*) 



TST.OFFS LDX 
STX 
JSR 
JSR 
LDAA 
STAA 
LDX 

F0R2 STX 
STAA 
LDAA 
STAA 
CPX 
BEQ 
JSR 

ENDIF2 LDAA 
STAA 
INX 
BNE 
JMP 

* 

OFF. TXT BYTE 



ONLY TO PUT MIR INTO DEFINED STATE 
DST=OFFSET, SRC=PANEL 



DST— , SRC-OFFSET 



-OFF.TXT 
SUB. ID 
EDMIR 
RMM 
=2D 
MIR3 
=0 

CPU1 
SSP 
=0F2 
MIR0 
CPU1 
ENDIF2 

PRINTBUS **B,A=ACTUAL; X=EXPECTED ** 
=2D DST-OFFSET, SCR=PANEL 
MIR8 

F0R2 END FORLOOP IF X ROLLS OVER 
END. TEST 

'LOAD OFFSET ',0 



* 

INCREMENT OFFSET TEST 

* 

* PROCEDURE TEST. INC; 

* BEGIN 

* EDMIR; 

* MIR:=SAFESTATE; 

* CLR. OFFSET; 

* MIR0:=(DST=ALU, SRC=IR8+); 

* SUB.ID:='INCPC.IR8+'; 
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HWTEST IFU 

943 « CYCLEPC; 

944 « MIR0:=(DST=ALU, SRC=IR8-); 

945 « SUB.ID:='INCPC.IR8-'; 

946 » CYCLEPC; 

947 * MIR0;=(DST=IRM, SRC=PANEL); 

948 » CPU0:=FFH; ("DISABLE INTERRUPTS TO ASSURE GENERATION OF MAP ENBL L«) 

949 « SSP; 

950 * MIR0:=(DST=ALU, SRC=IR4); 

951 * SUB.ID:='INCPC,IR4'; 

952 » CYCLEPC; 

953 « END; 
954 

955 2298 BD CI 58 TST.INC JSR EDMIR 

956 229B BD CI FE JSR RMM PUTS MIR INTO DEFINED STATE 

957 229E BD 23 34 JSR CLR. OFFSET 

958 22A1 86 04 LDAA =04 DST=ALU, SRC=IR8+ 

959 22A3 B7 3C 0C STAA MIR0 

960 22A6 CE 22 E6 LDX =IRPL.TXT 

961 22A9 DF 0D STX SUB. ID 

962 22AB BD 23 11 JSR CYCLEPC 

963 22AE 86 05 LDAA =05 DST=ALU, SRC=IR8- 

964 22B0 B7 3C 0C STAA MIR0 

965 22B3 CE 22 Fl LDX =IRMIN.TXT 

966 22B6 DF BD STX SUB. ID 

967 22B8 BD 23 11 JSR CYCLEPC 

968 22BB 86 06 LDAA =06 DST=ALU, SRC=IR8* 

969 22BD B7 3C 0C STAA MIR0 

970 22C0 CE 22 FC LDX =IRSTR.TXT 

971 22C3 DF 0D STX SUB. ID 

972 22C5 BD 23 11 JSR CYCLEPC 

973 22C8 86 8D LDAA =8D DST=IRM, SRC-PANEL 

974 22CA B7 3C 0C STAA MIR0 

975 22CD CE 00 FF LDX =0FF 

976 22D0 FF 3C 0E STX CPU1 

977 22D3 B7 3C 15 STAA SSP 

978 22D6 86 03 LDAA =03 DST=ALU, SRC=IR4 

979 22D8 B7 3C 0C STAA MIR0 

980 22DB CE 23 07 LDX =MAPEN.TXT 

981 22DE DF 0D STX SUB. ID 

982 22E0 BD 23 11 JSR CYCLEPC 

983 22E3 7E 20 4D JMP END. TEST 
984 

985 22E6 49 4E 43 IRPL.TXT BYTE 'INCPC.IR8+ ' ,0 
22E9 50 43 2E 

22EC 49 52 38 

22EF 2B 00 

986 22F1 49 4E 43 IRMIN.TXT BYTE 'INCPC.IR8- ' ,8 
22F4 50 43 2E 

22F7 49 52 38 

22FA 2D 00 

987 22FC 49 4E 43 IRSTR.TXT BYTE 'INCPC.IR8* ' ,0 
22FF 50 43 2E 

2302 49 52 38 

2305 2A 00 

988 2307 49 4E 43 MAPEN.TXT BYTE 'INCPC.IR4' ,8 
230A 50 43 2E 

230D 49 52 34 



NEL 
HWTEST 



IFU 
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2318 88 



989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1880 
1081 
1082 
1083 
1084 
1885 
1886 
1887 
1888 
1809 
1818 
1011 
1812 
1013 
1814 
1015 
1016 
1017 
1018 
1019 
1820 
1821 
1022 
1823 
1024 
1825 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1833 
1834 
1835 
1036 
1837 
1838 
1039 
1040 
1041 
1042 
1043 
1044 



2311 
2314 
2315 
2318 
23 IB 
231D 
2320 
2323 
2325 
2328 
232B 
232E 
2330 
2333 



CE 00 00 
08 

B7 3C 15 
B6 3C 0C 
C6 F2 
F7 3C 0C 
BC 3C 0E 
27 03 
BD El AA 
B7 3C 0C 
8C 00 00 
26 E4 
BD 23 34 
39 



* 

* PROCEDURE CYCLEPC; ("ASSUMES 0FFSET=8 AT START AND LEAVES IT ZERO*) 
« BEGIN 

* FOR X:=l TO 10000H DO 

SSP; 

A:=MIR0; 

MIR0:=(DST=-, SRC=OFFSET); 

* IF CPU#X THEN PRINTBUS; 
MIR8 := A; 

* END; 

* CLROFFSET; 

* END; 



CYCLEPC LDX =0 

F0R3 INX 

STAA SSP 

LDAA MIR0 

LDAB =0F2 

STAB MIR0 

CPX CPU1 



DST— , SRC-OFFSET 



BEQ 
JSR 
ENDIF3 STAA 
CPX 
BNE 
JSR 
RTS 



ENDIF3 

PRINTBUS ** B,A»ACTUAL, X=EXPECTED •« 

MIR0 

=0 

F0R3 IF OFFSET JUST ROLLED OVER THEN QUIT 

CLROFFSET 



2334 
2337 
2338 
233A 
233D 
2340 
2343 
2346 
2347 



BD CI FE 
36 

86 2D 
B7 3C 0C 
7F 3C 0E 
7F 3C 0F 
B7 3C 15 
32 
39 



* 

* PROCEDURE CLROFFSET; ("CHANGES MIR*) 

* BEGIN 

* MIR:=SAFESTATE; 

* MIR0:=(DST=OFFSET, SRC=PANEL); 

* CPU:=0000H; 

* SSP; 
» END; 

* 

CLROFFSET JSR 

PSH 

LDAA 



PUT MIR INTO DEFINED STATE 
DST=OFFSET, SRC=PANEL 



RMM 
A 

=2D 

STAA MIR0 
CLR CPU1 
CLR CPU0 
STAA SSP 
PUL A 
RTS 



* 

* TEST IFU SEQUENCING 

* 

* PROCEDURE IFU.SEQ; (*READ ALL COMBINATIONS OF INSTRUCTION BYTES 



NEL 
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HWTEST 




IFU 








1945 










* 




FROM MAIN MEMORY INTO EACH OF THE 8 IFU REGISTERS*) 


1046 










* 


BEGIN 




1047 










* 


SUB. ID :-' IFU. SEQUENCE'; 


1048 










* 


EDMIR; 




1049 










* 


FOR HELP1:»B TO 7 DO 


1050 










* 


B:-HELP1+1; 


A:=HELP1; 


1051 










* 


FOR X:=8 TO 


7FH DO 


1052 










* 


MAINMEMORY[X]:=(B MOD 256)«256 + A MOD 256; 


1053 










« 


INC(B,2); 


INC(A,2); 


1054 










* 


END; 




1055 










« 


CLROFFSET; 




1056 










* 


MIR0:=(DST=F, SRC=PANEL); 


1057 










* 


CPU:=0; 




1858 










X 


SSP; 




1059 










# 


MIR0:=(DST=- 


,SRC=IR8+); 


1060 










* 


B:=HELP1; 




1061 










* 


FOR X;=0 TO 


FF DO 


1062 










« 


IF CPU0 # 


(B MOD 256) 


1063 










* 


THEN 




1064 










* 


A:=CPU0 




1065 










* 


MIR0:=(DST=-, SRC=OFFSET); 


1066 










* 


PUSH(X) 




1067 










* 


X := CPU; 


1068 










* 


SWI; 


(«B=DESIRED BYTE, A=ACTUAL BYTE, X=OFFSET«) 


1069 










« 


PULL(X) 




1070 










* 


MIR0:=(DST=-, SRC=IR8+); 


1071 










* 


END; (»IF» 


) 


1072 










* 


SSP; 




1073 










* 


INC(B); 




1074 










* 


END; (*FOR»; 




1075 










* 


END; (»FOR«) 




1076 










* 


END 




1077 










* 






1078 










* 






1079 


2348 


CE 


23 


BC 


IFU.SEQ LDX 


=SEQ.TEXT 


1080 


234B 


DF 


BD 






STX 


SUB. ID 


1081 


234D 


BD 


CI 


58 




JSR 


EDMIR 


1082 


2350 


7F 


00 


2E 




CLR 


HELP1 


1083 


2353 


D6 


2E 




F0RL1 LDAB 


HELP1 


1084 


2355 


17 








TBA 




1085 


2356 


8B 


01 






ADDA 


=1 


1086 


2358 


CE 


80 


08 




LDX 


=0 


1087 


235B 


BD 


C2 


28 




JSR 


WMM 


1688 


235E 


8C 


00 


7F 


F0RL2 CPX 


=7F 


1089 


2361 


27 


0A 






BEQ 


ENDF0RL2 


1090 


2363 


08 








INX 




1091 


2364 


8B 


02 






ADDA 


=2 


1092 


2366 


CB 


82 






ADDB 


=2 


1093 


2368 


BD 


C2 


3D 




JSR 


WMMS 


1094 


236B 


20 


Fl 






BRA 


F0RL2 


1095 


236D 


86 


ED 




ENDF0RL2 LDAA 


=0ED DST-F, SRC-PANEL 


1096 


236F 


B7 


3C 


0C 




STAA 


MIR0 


1097 


2372 


7F 


3C 


BE 




CLR 


CPU1 


1098 


2375 


7F 


3C 


0F 




CLR 


CPU0 


1099 


2378 


B7 


3C 


15 




STAA 


SSP 


1100 


237B 


BD 


23 


34 




JSR 


CLR. OFFSET IT LOADS THE FIRST BYTE FROM THE MEMORY 


1181 


237E 


86 


F4 






LDAA 


=0F4 DST=-, SRC=IR8+ 



NEL 








HWTEST 




IFU 


1102 


2380 


B7 


3C 0C 


1103 


2383 


D6 


2E 


1104 


2385 


CE 


00 00 


1105 


2388 


Fl 


3C 0F 


1106 


238B 


27 


19 


1107 


238D 


B6 


3C 0F 


1108 


2390 


36 




1109 


2391 


86 F2 


1110 


2393 


B7 


3C 0C 


1111 


2396 


32 




1112 


2397 


BD 


C2 59 


1113 


239A 


FE 


3C 0E 


1114 


239D 


3F 




1115 


239E 


BD 


C2 70 


1116 


23A1 


86 


F4 


1117 


23A3 


B7 


3C 0C 


1118 


23A6 


B7 


3C 15 


1119 


23A9 


5C 




1120 


23AA 


08 




1121 


23AB 


8C 


01 00 


1122 


23AE 


26 


D8 


1123 


23B0 


7C 


00 2E 


1124 


23B3 


86 


07 


1125 


23B5 


91 


2E 


1126 


23B7 


2C 


9A 


1127 


23B9 


7E 


20 4D 


1128 








1129 


23BC 


49 


46 55 




23BF 


53 


45 51 




23C2 


00 




1130 








1131 








1132 








1133 








1134 








1135 








1136 








1137 








1138 








1139 








1140 








1141 








1142 








1143 








1144 








1145 








1146 








1147 








1148 








1149 








1150 








1151 








1152 








1153 








1154 








1155 








1156 
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F0RL3 



ENDIFA 



STAA 


MIR0 


LDAB 


HELP1 


LDX 


=0 


CMPB 


CPU0 


BEQ 


ENDIFA 


LDAA 


CPU0 


PSH 


A 


LDAA 


=0F2 


STAA 


MIR0 


PUL 


A 


JSR 


PUSH.X 


LDX 


CPU1 


SWI 




JSR 


PULL.X 


LDAA 


=0F4 


STAA 


MIR0 


STAA 


SSP 


INC 


B 


INX 




CPX 


=0100 


BNE 


F0RL3 


INC 


HELP1 


LDAA 


=7 


CMPA 


HELP1 


BGE 


FORL1 


JMP 


END. TEST 


BYTE 


'IFUSEQ',0 



DST— , SRC=OFFSET 

*«B=EXPECTED BYTE, A "ACTUAL BYTE, X=OFFSET «• 
DST—, SRC=IR8+ 



SEQ.TEXT 



* 

* TEST THE IFU ADDER 

* 

« PROCEDURE ADDER; 

CONST INC.F= 152; INC.OFFS =174; (» BOTH MUST BE EVEN «) 
(* THOSE CONSTANTS HAVE NO FIXED MEANING 
THEY ARE USED TO SPEED UP THE TEST ONLY ») 
VAR HELP1 : F. REGISTER; 
HELP2 : OFFSET; 
HELP3 ; EXPECTED VALUE; 
BEGIN SUB. ID := 'ADDER'; 
(*FILL MEMORY") 
FOR X := TO 0FFFFH DO VMM(X,X) END; 

* 

HELP1 :=0; 

LOOP F.REG := HELP1; 
« HELP2 := 0; 

LOOP OFFSET :« HELP2; 

HELP3 := (HELP2 DIV 2) + (HELP1 *2); 

(* THIS IS TO CORRECT THE SHIFTED POSITION OF F.REG AND OFFSET*) 
IF HELP3>0FFFFH THEN EXIT END; 
B := FETCH(NEXT INSTR); A := FETCH(NEXT INSTR); 
IF (B,A) <> HELP3 THEN S V I(B,A,HELP3) END; 
HELP2 := HELP2 + INC.OFFS; 
END; 



NEL 
HWTEST 



IFU 



1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1280 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1289 
1210 
1211 
1212 
1213 



23C3 
23C6 
23C8 
23CB 
23CE 
2301 
23D3 
2305 
23D7 
23DA 
23DB 

23DD 
23E0 
23E2 
23E4 
23E7 
23E9 
23EC 
23EF 
23F2 
23F4 
23F6 
23F9 
23FB 
23FE 

2401 
2403 
2405 
2406 
2407 
2409 

240B 
240D 
240F 
2410 
2411 
2413 
2415 
2417 
2419 
24 IB 

24 ID 
241F 
2422 
2425 



CE 24 
OF 0D 
BD CI 58 
BD C2 28 
CE 00 00 
DF 2E 
D6 2E 
96 2F 
BD C2 3D 
08 
26 F4 

CE 00 00 
DF 2E 
DE 2E 
FF 3C 0E 
86 ED 
B7 3C 0C 
B7 3C 15 
CE 00 00 
DF 30 
DE 30 
FF 3C 0E 
86 2D 
B7 3C 0C 
B7 3C 



15 



96 31 
06 30 
54 

46 

97 02 
D7 01 

96 2F 
D6 2E 
48 

59 

25 33 
9B 02 
D9 01 
25 2D 

97 33 
D7 32 

86 F4 
B7 3C 0C 
F6 3C 0F 
B7 3C 15 



HELP1 := 
IF HELP1 
END 
END ADDER; 



INC.F 
INC.OFFS 

* 

59 ADDER 



FILL. LP 



AD.LP.l 



AD. LP. 2 



EQU 
EQU 

LDX 

STX 

JSR 

JSR 

LDX 

STX 

LDAB 

LDAA 

JSR 

INX 

BNE 

LDX 

STX 

LDX 

STX 

LDAA 

STAA 

STAA 

LDX 

STX 

LDX 

STX 

LDAA 

STAA 

STAA 

LDAA 

LDAB 

LSR 

ROR 

STAA 

STAB 

LDAA 

LDAB 

ASL 

ROL 

BCS 

ADDA 

ADCB 

BCS 

STAA 

STAB 

LDAA 
STAA 
LDAB 
STAA 



MOTOROLA ASSEMBLER 13/05/82 13.01.57, SEITE NR 25 



HELP1 + INC.F; 

> 0FFFFH THEN EXIT END 



MUST BE EVEN 



JUST TO DO SLOW VERSION OF 'VMM' ONCE 



FAST VERSION OF WMM 



SOURCE-PANEL; DEST=F.REG 



152Z 
174Z 

=ADDER.TXT 

SUB. ID 

EDMIR 

WMM 

=0 

HELP1 

HELP1 

HELP1+1 

WMMS 

FILL. LP 

=0 

HELP1 

HELP1 

CPU1 

=0ED 

MIR0 

SSP 

=0 

HELP2 

HELP2 

CPU1 

=2D 

MIR0 

SSP 

HELP2+1 

HELP2 

B 

A 

X.SAVE+1 

X.SAVE 



HELP1+1 (B,A) := 2-HELP1 

HELP1 

A 

B 

END. LP. 2 IF OVERFLOW 

X.SAVE+1 

X.SAVE 

END. LP. 2 

HELP3+1 

HELP3 



SOURCE=PANEL; DEST=OFFSET 



X.SAVE := HELP2 DIV 2 



=0F4 
MIR0 
CPU0 
SSP 



HELP3 := (HELP1 DIV 2) + (HELP2 * 2) 

S0URCE=IR8; DEST= NONE 
FETCH FIRST INSTRUCTION BYTE 



NEL MOTOROLA ASSEMBLER 13/05/82 13,81.57. SEITE NR 26 
HWTEST IFU 

1214 2428 B6 3C 0F LDAA CPU0 FETCH SECOND INSTRUCTION BYTE 

1215 » 

1216 242B 91 33 CMPA HELP3+1 

1217 242D 26 04 BNE ADD. ERR 

1218 242F Dl 32 CMPB HELP3 

1219 2431 27 03 BEQ ADD. NO. ERR 

1220 2433 DE 32 ADD. ERR LDX HELP3 

1221 2435 3F SWI (B,A)=ACTUAL; X=EXPECTED »«»»»*««»» 

1222 2436 96 31 ADD. NO. ERR LDAA HELP2+1 

1223 2438 D6 30 LDAB HELP2 

1224 243A 8B AE ADDA =INC.OFFS 

1225 243C C9 00 ADCB =0 

1226 243E 25 06 BCS END. LP. 2 

1227 2440 97 31 STAA HELP2+1 

1228 2442 D7 30 STAB HELP2 

1229 2444 20 AE NO.CARRY1 BRA AD. LP. 2 
1230 

1231 2446 96 2F END. LP. 2 LDAA HELP1+1 

1232 2448 D6 2E LDAB HELP1 

1233 244A 8B 98 ADDA =INC.F 

1234 244C C9 00 ADCB =0 INC.F IS LESS THEN 255; WE ADD CARRY ONLY 

1235 244E 25 06 BCS ADD. END 

1236 2450 97 2F STAA HELP1+1 

1237 2452 D7 2E STAB HELP1 

1238 2454 20 8C BRA AD.LP.l 

1239 » 

1240 2456 7E 20 4D ADD. END JMP END. TEST 
1241 

1242 2459 4144 44 ADDER.TXT BYTE ' ADDER', 

245C 45 52 80 
1243 

1244 a************************************** ********* **ss***s#**s<* 

1245 

1246 * LOOP ALL IFU TESTS IN A CHAIN 

1247 

1248 245F CE 24 D8 LOOP. IFU LDX =IFU. CHAIN 

1249 2462 BD 28 15 JSR CHAIN 

1250 2465 20 F8 BRA LOOP. IFU 
1251 

1253 

1254 » ENTRY POINT FOR THE IFU TEST 

1255 

1256 ****#***■********»**#*«*»#»»»*»»*»»***#**#*#********#*******#*# 

1257 



1258 


2467 


CE 24 Fl 


IFU. TEST LDX 


-IFU. ID 


1259 


246A 


DF 0B 


STX 


MAIN. ID 


1260 


246C 


CE 24 72 


LDX 


=IFU.MENU 


1261 


246F 


7E C3 91 


JMP 


COMMANDS 


1262 






* 




1263 


2472 


07 


IFU. MENU BYTE 


7 


1264 


2473 
2476 
2479 
247C 
247F 


58 20 45 
58 45 43 
20 43 48 
41 49 4E 
00 


BYTE 


'X EXEC CHAIN', 


1265 


2480 


24 5F 


WORD 


LOOP. IFU 



NEL 












MOTOROLA ASSEMBL 




HyTEST 




IFU 








1266 


2482 


52 


20 


54 




BYTE 


"R TEST. F. REG', 




2485 


45 53 54 










2488 


2E 


46 


2E 










248B 


52 


45 


47 










248E 


00 












1267 


248F 


22 


IF 






WORD 


TEST.FREG 


1268 


2491 


4F 


28 


54 




BYTE 


'0 TEST OFFSET', 8 




2494 


45 


53 54 










2497 


20 


4F 


46 










249A 


46 


53 


45 










249D 


54 


00 










1269 


249F 


22 


5B 






WORD 


TST.OFFS 


1270 


24A1 


4E 


20 


49 




BYTE 


'N INC OFFSET', 




24A4 


4E 


43 


20 










24A7 


4F 


46 


46 










24AA 


53 


45 


54 










24AD 


00 












1271 


24AE 


22 


98 






WORD 


TST.INC 


1272 


24B0 


53 


20 


53 




BYTE 


'S SEQUENCING', 




24B3 


45 


51 


55 










24B6 


45 


4E 


43 










24B9 


49 


4E 


47 










24BC 


00 












1273 


24B0 


23 


48 






WORD 


IFU.SEQ 


1274 


24BF 


50 


20 


50 




BYTE 


•P PC ADDER ',0 




24C2 


43 


20 


41 










24C5 


44 


44 


45 










24C8 


52 


00 










1275 


24CA 


23 


C3 






WORD 


ADDER 


1276 


24CC 


49 


20 


49 




BYTE 


'I INSPECT ',8 




24CF 


4E 


53 


50 










24D2 


45 


43 


54 










24D5 


00 












1277 


24D6 


20 


FA 






WORD 


INSPECT 


1278 










* 






1279 










*#*#*#***#$*** ********#***#****** 


1280 










* 






1281 


24D8 


06 






IFU 


CHAIN BYTE 


IFU. CH.LEN 


1282 


24D9 
24DC 


20 

Fl 


4A 


24 




WORD 


SET. MAIN. ID, IFU. ID 


1283 


24DD 
24E0 


22 

00 


IF 


00 




WORD 


TEST.FREG, 8 


1284 


24E1 
24E4 


22 

00 


5B 


00 




WORD 


TST.OFFS, 8 


1285 


24E5 
24E8 


22 

00 


98 


00 




WORD 


TST.INC, 8 


1286 


24E9 
24EC 


23 

00 


48 


00 




WORD 


IFU.SEQ, 8 


1287 


24ED 
24F0 


23 
00 


C3 


00 




WORD 


ADDER, 8 


1288 










IFU 


CH.LEN EQU 


•-1-IFU. CHAIN/4 


1239 










8 






1290 










*«#««**#S*S«tt**Ktt«ttS*#*****:*»K»* 


1291 










« 






1292 










* 






1293 


24F1 
24F4 


49 
00 


46 


55 


IFU 


ID BYTE 


'IFU' ,8 



27 



NEL MOTOROLA ASSEMBLER 13/05/82 13.01.57. SEITE NR 28 

HWTEST IFU 

1294 

1295 24F5 END IFU 



MOTOROLA ASSEMBLER 13/85/82 13.01.57. SEITE NR 29 
HVTEST 



1298 


24F5 










BEGIN DEVICES 


1299 










ttK#*#*tt«*«*#8*tttt»*«S«#«**###4^**«***tt*««#S««ft« 


1300 










* 






1301 










* 


DEVICES 




1382 










* 






1383 










« 


AUTHOR 


JIRKA HOPPE 5-DEC-79 


1304 










* 






1385 










«****#ttSX«S**«*#*****S*«******S«#ttSttS#$]!t&jtt$iic« 


1386 












USE 


INSPECT 


1307 












DEF 


DEVICES 


1388 










«****#!K*«a *-*****##**#*** a *****#****##**##* a a* & ********* 


1389 










* 






1318 










* 


READ 


DEVICE 


1311 










* 


INPUT 


A - DEVICE ADR 


1312 










* 


OUTPUT X - VALUE 


1313 










* 






1314 


24F5 


B7 


3C 


0F 


GET 


STAA 


CPU0 SET DEVICE ADR BYTE ONLY 


1315 


24F8 


CE 


25 


67 




LDX 


=SET.IO.ADR 


1316 


24FB 


BD 


CI 


17 




JSR 


EXX 


1317 










* 






1318 


24FE 


36 








PSH 


A 


1319 


24FF 


86 


07 






LDAA 


-87 BUS SOURCE = IODATA 


1320 


2501 


B7 


3C 


0C 




STAA 


MIR0 THIS STARTS THE READ OPERATION 


1321 


2504 


B7 


3C 


15 




STAA 


SSP SINGLE STEP 


1322 


2507 


B7 


3C 


15 




STAA 


SSP 


1323 


250A 


FE 


3C 


0E 




LDX 


CPU1 


1324 


258D 


B7 


3C 


15 




STAA 


SSP 


1325 


2510 


B7 


3C 


15 




STAA 


SSP 


1326 


2513 


86 FF 






LDAA 


=0FF 


1327 


2515 


B7 


3C 


0C 




STAA 


MIR0 DISABLE ANY BUS SOURCING IN AN 1 


1328 


2518 


32 








PUL 


A 


1329 


2519 


39 








RTS 




1338 










ft ffi*»**ai)t**:3***«**********#****#*********»S:*****»#W***S< 


1331 










* 






1332 










* 


WRITE 


DEVICE 


1333 










* 


INPUT 


A - DEVICE ADR 


1334 










« 




X - VALUE 


1335 










* 






1336 


251A 


B7 


3C 


0F 


PUT 


STAA 


CPUS 


1337 


251D 


BD 


C2 


59 




JSR 


PUSHX 


1338 


2520 


CE 


25 


67 




LDX 


=SET.IO.ADR 


1339 


2523 


BD 


CI 


17 




JSR 


EXX SET DEVICE ADR 


1340 










* 




- 


1341 


2526 


BD 


C2 


70 




JSR 


PULLX 


1342 


2529 


FF 


3C 0E 




STX 


CPU1 


1343 


252C 


36 








PSH 


A 


1344 


252D 


36 


7D 






LDAA 


=7D SOURCE=PANEL; DEST=IOD 


1345 


252F 


B7 


3C 


ec 




STAA 


MIR0 


1346 


2532 


B7 


3C 


15 




STAA 


SSP SINGLE STEP 


1347 


2535 


B7 


3C 


15 




STAA 


SSP SINGLE STEP 


1348 


2538 


B7 3C 


15 




STAA 


SSP SINGLE STEP 


1349 


253B 


B7 


3C 


15 




STAA 


SSP SINGLE STEP 


1350 


253E 


86 


FF 






LDAA 


=8FF DISABLE BUS 


1351 


2540 


B7 


3C 


0C 




STAA 


MIR8 


1352 


2543 


32 








PUL 


A 


1353 


2544 


39 








RTS 





PSH 


A 




JSR 


GETWORD 


GET X VALUE 


LDX 


X.WORD 




PUL 


A 




JSR 


EDMIR 




JSR 


PUT 




JSR 


EPMIR 





MOTOROLA ASSEMBLER 13/B5/82 13.01.57, SEITE NR 39 
HWTEST DEVICES 

1355 

1356 « CALL READ DEVICE 

1357 2545 96 10 RD.DEV LDAA X.WORD+1 

1358 2547 BD CI 58 JSR EDMIR 

1359 254A BD 24 F5 JSR GET 
1368 254D BD CI 5F JSR EPMIR 

1361 2550 BD C2 87 JSR PRINTX 

1362 2553 39 RTS 

1363 *****»**«**«»*********»*##****»****** -**####¥.)£ #w 

1364 * CALL WRITE DEVICE 

1365 2554 96 10 WR.DEV LDAA X.VORD+1 ADR 

1366 2556 36 

1367 2557 BD C2 FE 

1368 255A DE 0F 

1369 255C 32 

1370 255D BD CI 58 

1371 2560 BD 25 1A 

1372 2563 BD CI 5F 

1373 2566 39 RTS 

1375 

1376 2567 2E 00 07 SET. 10. ADR BYTE 2E, 0,7, 60,60 

256A 60 6D 

1378 ******#«#$£***»«###*««*$««#«##**«$$**&$«$«£« 

1379 

1380 « PROCEDURE KEYBOARD. TEST; 

1381 * BEGIN W.CRLF; 

1382 « LOOP 

1383 « WRITE(GET(K8.DATA); WRITE( ' '); WRITE(GET(KB. STATUS)); WRITE(CR) 

1384 * END 

1385 * END KEYBOARD. TEST; 
1386 

1387 256C BD C0 78 KEYBOARD JSR W.CRLF 

1388 256F BD CI 58 JSR EDMIR 

1389 2572 86 02 KB. LOOP LDAA =2 I/O ADR OF KEYBOARD DATA 

1390 2574 BD 24 F5 JSR GET 

1391 2577 BD C2 87 JSR PRINTX 

1392 257A BD C0 62 JSR V.l. BLANK 

1393 257D CE F0 00 LDX =0F000 A DELAY LOOP 

1394 2580 09 KB.LP.l DEX 

1395 2581 26 FD BNE KB.LP.l 

1396 2583 86 01 LDAA =1 I/O ADR OF KEYBOARD STATUS 

1397 2585 BD 24 F5 JSR GET 

1398 2588 BD C2 87 JSR PRINTX 

1399 258B 86 0D LDAA =CR 'CR' ONLY; STAY ON THE SAME LINE 

1400 258D BD C0 51 JSR W.CH 

1401 2590 BD C0 46 JSR BREAK 

1402 2593 4D TST A 

1403 2594 27 DC BEQ KB. LOOP 

1404 2596 BD CI 5F JSR EPMIR 

1405 2599 39 RTS 
1486 * 

1407 a**************************************-******* 

1488 
1409 * PROCEDURE MOUSE. TEST 



MOTOROLA ASSEMBLER 13/05/82 13.01.57. SEITE NR 31 



HWTEST DEVICES 



JSR 


W.CRLF 


JSR 


EDMIR 


LDAA 


=6 X COORDINATE 


JSR 


GET 


JSR 


PRINTX 


JSR 


W.l. BLANK 


LDAA 


=7 Y COORDINATE 


JSR 


GET 


JSR 


PRINTX 


JSR 


W.l. BLANK 


LDAA 


=3 


JSR 


GET 


JSR 


PRINTX 


LDAA 


=CR 


JSR 


W.CH 


JSR 


BREAK 


TST 


A 


BEQ 


MS. LOOP 


JSR 


EPMIR 


RTS 





1410 « BEGIN W.CRLF 

1411 « LOOP 

1412 * WRITE(GET(M.X)); WRITE(GET(M.Y)); WRITE(GET(M.STAT)); WRITE(CR); 

1413 * END 

1414 « END MOUSE. TEST; 
1415 

1416 259 A BD C0 73 MOUSE 

1417 259D BD CI 58 

1418 25A0 86 06 MS. LOOP 

1419 25 A2 BD 24 F5 

1420 25A5 BD C2 87 

1421 25A8 BD C0 62 

1422 25AB 86 07 

1423 25AD BD 24 F5 

1424 25B0 BD C2 87 

1425 25B3 BD C0 62 

1426 25B6 86 03 

1427 25B8 BD 24 F5 

1428 25BB BD C2 87 

1429 25BE 86 0D 

1430 25C0 BD C0 51 

1431 25C3 BD C0 46 

1432 25C6 4D 

1433 25C7 27 D7 

1434 25C9 BD CI 5F 

1435 25CC 39 

1436 « 

1437 *#*****««#****###****#**#***#**»**** a »#»»#****##*##« 

1438 

1439 * PROCEDURE UART.TST; 

1440 * (» AT THE BEGINNIG IS X.WORD SPECIFIED FROM COMMANDS «) 

1441 « BEGIN 

1442 * LOOP 

1443 * REPEAT UNTIL TBRE IN GET(UART.ST); (• WAIT XMITER EMPTY *) 

1444 * PUT (UART. DATA , X.WORD); 

1445 » IF DRDY IN GET(UART.ST) THEN X.WORD := GET(UART.DATA) END 

1446 * IF BREAK THEN EXIT 

1447 « END 

1448 « END UART.TST; 
1449 

1450 25CD BD CI 58 UART JSR EDMIR 

1451 25D0 86 05 UART. LP LDAA =5 UART. ST 

1452 25D2 BD 24 F5 JSR GET 

1453 25D5 DF 2E STX HELP1 

1454 25D7 D6 2F LDAB HELP1+1 

1455 25D9 C4 01 ANDB =1 TBRE 

1456 25DB 27 F3 BEQ UART. LP 

1457 25DD 86 04 LDAA =4 UART. DATA 

1458 25DF DE 0F LDX X.WORD 

1459 25E1 BD 25 1A JSR PUT 

1460 * 

1461 25E4 86 85 LDAA =5 UART. ST 

1462 25E6 BD 24 F5 JSR GET 

1463 25E9 DF 2E STX HELP1 

1464 25EB D6 2F LDAB HELP1+1 

1465 25ED C4 02 ANDB =2 DBRDY 

1466 25EF 27 07 BEQ NO. DATA 
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HWTEST 




DEVICES 








1467 


25F1 


86 


04 






LDAA 


=4 


UART. DATA 


1468 


25F3 


BD 


24 


F5 




JSR 


GET 




1469 


25F6 


DF 


0F 






STX 


X.WORD 




1470 










* 








1471 


25F8 


BD 


C0 


46 


NO. 


DATA JSR 


BREAK 




1472 


25FB 


4D 








TST 


A 




1473 


25FC 


27 


CF 






BEQ 


UART 




1474 


25FE 


BD 


CI 


5F 




JSR 


EPMIR 




1475 


2601 


39 








RTS 






1476 










****##****#** 8 * ****####***»■« « ****** ;**£$*** 


1477 










* 








1478 










* 


WRITE PATTERN INTO MEMORY 


1479 










* 








1480 










* 


BEGIN 


(A,B) := 


X.WORD; 


1481 










* 


FOR 


X:=LOWDISP TO LOWDISP+DISPSIZE DO VMM(X,A,B) 


1482 










« 


END 






1483 










* 








1484 










LOW.DISP EQU 


1000 


STARTING ADR OF DISPLAY MAP 


1485 










DISP.SIZE EQU 


768Z»5962/16Z SIZE OF DISPLAY MEMORY 


1486 










* 








1487 


2602 


96 


10 




D. PATTERN LDAA 


X.WORD+1 




1488 


2604 


D6 


0F 






LDAB 


X.WORD 




1489 


2606 


CE 


10 


00 




LDX 


=LOW.DISF 


> 


1490 


2609 


BD 


C2 


28 




JSR 


WMM 


DO THE SLOW VERSION OF WMM ONCE 


1491 


260C 


BD 


CI 


53 




JSR 


EDMIR 




1492 


260F 


BD 


C2 


3D 


FOR 


JSR 


WMMS 




1493 


2612 


08 








INX 






1494 


2613 


8C 


7F 


C0 




CPX 


=LOW.DISF 


+DISP.SIZE 


1495 


2616 


26 


F7 






BNE 


FOR 




1496 


2618 


BD 


CI 


5F 




JSR 


EPMIR 




1497 


261B 


39 








RTS 






1498 










« 








1499 










*** 


*S*****3<*******##*******#*******« ********* 


1500 










* 








1501 










« 


PROCEDURE SET. 


MEMORY(X: 


tCOMMAND STRING-4); 


1502 










* 


(« FORMAT OF 


THE COMMAND STRING: 


1503 










* 


VALUE, ADDRESS «) 




1504 










* 


BEGIN HELP1 


:= X; 




1505 










* 


LOOP INC(HELP1,4); 


(BA) := HELPlt; 


1506 










* 


X := (HELPl+2)t; 




1507 










* 


IF X=0 


THEN EXIT 


END; 


1508 










* 


WMM(X,B 


.A) 




1509 










* 


END 






1510 










* 


END SET. MEMORY 




1511 










« 








1512 


261C 


DF 


2E 




SET 


.MEM STX 


HELP1 




1513 


261E 


DE 


2E 




SET 


.M.LP LDX 


HELP1 




1514 


2620 


08 








INX 






1515 


2621 


08 








INX 






1516 


2622 


08 








INX 






1517 


2623 


08 








INX 






1518 


2624 


DF 


2E 






STX 


HELP1 




1519 


2626 


E6 


08 






LDAB 


0,X 


HIGH OF VALUE 


1520 


2628 


A6 


01 






LDAA 


i,x 


LOW OF VALUE 


1521 


262A 


EE 


02 






LDX 


2,X 


ADDRESS 


1522 


262C 


27 


05 






BEQ 


S.M.END 





32 



1523 262E BD C2 28 JSR WMM 
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HWTEST 



DEVICES 



1524 


2631 


20 


EB 








BRA 


SET. M. LP 


1525 


2633 


39 






S 


M.END 


RTS 




1526 










* 








1527 










#»******* 


«#**»*###***###*##**##& &*»**### $**#*# ft* 


1528 










* 








1529 










* 


PROCEDURE TEST 


•PICTURE; 


1530 










« 


(* DRAW A SIMPLE TEST PICTURE ON THE SCREEN ») 


1531 










* 


BEGIN 


D.PATTERN(0); (* CLEAR THE WHOLE SCREEN *) 


1532 










* 


FOR 


X := LOW.DISP TO LOW.DISP+W DO WMM(X,FFFF) 


1533 










* 


SET 


.MEM(MEM. STRING); 


1534 










* 


PUT(0, LOW. 


DISP); (*START DISPLAY CONTROLLER *) 


1535 










» 


END 






1536 










* 








1537 










H 


PICT 


EQU 


594Z HEIGHT OF THE PICTURE 


1538 










V 


PICT 


EQU 


48Z WIDTH OF THE PICTURE 


1539 










BMD 


EQU 


0FFFC ADDRESS OF THE BMD 


1540 










* 








1541 


2634 


BD 


CI 


58 


TEST. PICT 


JSR 


EDMIR 


1542 


2637 


86 


00 








LDAA 


=8 


1543 


2639 


CE 


FF 


FC 






LDX 


=BMD 


1544 


263C 


BD 


25 


1A 






JSR 


PUT 


1545 


263F 


CE 


08 


09 






LDX 


=0 


1546 


2642 


DF 


8F 








STX 


X.WORD 


1547 


2644 


8D 


BC 








BSR 


D. PATTERN 


1548 


















1549 


2646 


BD 


CI 


58 






JSR 


EDMIR 


1550 










* 


LEFT + 


RIGHT MARGIN 


1551 


2649 


CE 


10 


2F 






LDX 


=LOW.DISP+W.PICT-l 


1552 


264C 


86 


01 




TST.PC.L3 LDAA 


=1 RIGHT MARGIN 


1553 


264E 


5F 










CLR 


B 


1554 


264F 


BD 


C2 


28 






JSR 


WMM 


1555 


2652 


4F 










CLR 


A 


1556 


2653 


C6 


80 








LDAB 


=80 


1557 


2655 


08 










INX 




1558 


2656 


BD 


C2 


3D 






JSR 


WMMS 


1559 


2659 


DF 


2E 








STX 


HELP1 


1560 


265B 


96 


2F 








LDAA 


HELP1+1 HELP1 ;= HELP1 + W.PICT 


1561 


265D 


8B 


2F 








ADDA 


=W.PICT-1 


1562 


265F 


97 


2F 








STAA 


HELP1+1 


1563 


2661 


24 


03 








BCC 


T.P.NO.CARR1 


1564 


2663 


7C 


00 


2E 






INC 


HELP1 


1565 


2666 


DE 


2E 




T. 


P.NO.CARR1 LDX 


HELP1 


1566 


2668 


8C 


7F 


5F 






CPX 


=H.PICT«W.PICT+LOWDISP-l 


1567 


266B 


26 


DF 








BNE 


TST.PC.L3 


1568 










* 


UPPER 


LINE 




1569 


266D 


CE 


10 00 






LDX 


=LOW.DISP 


1570 


2670 


86 


AA 








LDAA 


=0AA 


1571 


2672 


16 










TAB 


(B,A)=AAAA 


1572 


2673 


BD C2 


3D 


TST.PCT.L 


JSR 


WMMS 


1573 


2676 


08 










INX 




1574 


2677 


8C 


10 


30 






CPX 


=LOW.DISP+W.PICT 


1575 


267A 


26 


F7 








BNE 


TST.PCT.L 


1576 










* 


LOWER LINE 




1577 


267C 


CE 


7F 


00 






LDX 


=H . PICT-2*W . PICT+LOW . DISP 


1578 


267F 


BD C2 


3D 


TST.PC.L2 


JSR 


WMMS 


1579 


2682 


08 










INX 




1580 


2683 


8C 


7F 


30 






CPX 


=H.PICT-l«WPICT+LOW.DISP 



HWTEST DEVICES 
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1581 
1582 
1583 
1584 
1585 
1586 
1587 
1583 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 



2686 26 F7 



1602 
1603 

1604 



1605 

1606 

1607 
1608 
1609 
1610 



1611 

1612 
1613 

1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 



2688 
268B 
268D 
268E 
2691 
2693 
2695 
2697 
2699 
269B 
269E 
26A0 
26A3 
26A5 
26A8 
26AB 
26AE 

26AF 
26B2 
26B5 
26B8 
26BB 
26BE 



26BF 
26C2 
26C5 
26C7 
26CA 
26CB 
26CE 



26CF 
26D2 
26D5 
26D7 
26DA 

26DB 
26DE 



CE 1C 00 

86 FF 

16 

BD C2 3D 

DF 2E 

96 2F 
8B 31 

97 2F 
24 03 

7C 00 2E 
DE 2E 
8C 25 30 
26 E6 
CE 26 AB 
BD 26 1C 
BD CI 5F 
39 



10 00 FF 
FC 00 30 
FF FD 02 
53 FF FE 
00 00 FF 
FF 



AA AA 10 

F0 AA AA 

11 IF 

AA AA 7E 

A0 

AA AA 7E 

CF 



AA AA 47 

C8 99 99 
47 F7 
99 99 47 
F9 

00 00 00 
00 



BNE 

* DIAGONAL 

LDX 

TSTPC.L4 LDAA 
TAB 
JSR 
STX 
LDAA 
ADDA 
STAA 
BCC 
INC 

T.P.N0.CARR2 LDX 
CPX 
BNE 
LDX 
JSR 
JSR 
RTS 

* 

MEMSTRING WORD 



TST.PC.L2 

=40*W.PICT+LOW,DISP 
=0FF 



START AT 48TH LINE 



HELP1 + W.PICT + 1 



WMMS 

HELP1 

HELP 1+1 HELP1 

=U.PICT+1 

HELP1+1 

T.P.N0.CARR2 

HELP1 

HELP1 

=30+4B«W . PICT+38+L0W . DISP 

TST.PC.L4 

-MEM.STRING-4 

SET. MEM 

EPMIR 



LOW. DISP, BMD.V. PICT, BMD+l,H.PICT+l,BMD+2,0,BMD+3 BMD 



TEST RESOLUTION 
LINE5 EQU 5*W.PICT+L0W.DISP 

WORD 0AAAA , LINE5 , 0AAAA , LINE5+W , PICT- 1 



WORD 0AAAA,H.PICT-4*W,PICT+LOW,DISP LOWER LEFT EDGE 

WORD 0AAAA,H.PICT-4«W.PICT+LOW.DISP+W.PICT-i LOWER RIGHT EDGE 

« MIDDLE OF THE PICTURE 
W.PICT2 EQU W. PICT/2 

MIDDLE EQU H,PICT/2»W.PICT+W.PICT2+L0W.DISP 
WORD 0AAAA , MIDDLE , 9999 , MIDDLE+ V . PICT- 1 



• END 



WORD 9999, MIDDLE* V.PICT+1 



WORD 0,0 



***¥$#****»*«***«*****«****«*********#««*««* 



26DF CE 26 EA DEVICES LDX =DEV. TITLE 



26E2 DF 0B 

26E4 CE 26 F2 

26E7 7E C3 91 

26EA 44 45 56 DEV. TITLE BYTE ' DEVICES ',0 

26ED 49 43 45 

26F0 53 00 



STX MAIN. ID 
LDX =DEV.MENU 
JMP COMMANDS 
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HWTEST DEVICES 



1623 






* 






1624 


26F2 


08 


DEV. 


MENU BYTE 


8 


1625 


26F3 


50 


28 50 


BYTE 


'P PUT',0 




26F6 


55 


54 00 






1626 


26F9 


25 


54 


WORD 


WR.DEV 


1627 


26FB 


47 


20 47 


BYTE 


'G GET', 8 




26FE 


45 


54 00 






1628 


2701 


25 


45 


WORD 


RD.DEV 


1629 


2783 


4B 


20 4B 


BYTE 


'K KEYBOARD', 




2706 


45 


59 42 








2789 


4F 


41 52 








270C 


44 


00 






1630 


270E 


25 


6C 


WORD 


KEYBOARD 


1631 


2710 


4D 


20 4D 


BYTE 


'M MOUSE', 8 




2713 


4F 


55 53 








2716 


45 


88 






1632 


2718 


25 


9A 


WORD 


MOUSE 


1633 


271 A 


55 


20 55 


BYTE 


'U UART',0 




271D 


41 


52 54 








2720 


03 








1634 


2721 


25 


CD 


WORD 


UART 


1635 


2723 


53 


28 53 


BYTE 


'S SET MEMORY ',0 




2726 


45 


54 20 








2729 


4D 


45 4D 








272C 


4F 


52 59 








272F 


08 








1636 


2730 


26 


82 


WORD 


D. PATTERN 


1637 


2732 


54 


28 54 


BYTE 


■T TEST PICTURE', 8 




2735 


45 


53 54 








2738 


20 


58 49 








273B 


43 


54 55 








273E 


52 


45 00 






1638 


2741 


26 


34 


WORD 


TEST. PICT 


1639 


2743 


49 28 49 


BYTE 


'I INSPECT ',0 




2746 


4E 


53 50 








2749 


45 


43 54 








274C 


00 








1648 


274D 


28 


FA 


WORD 


INSPECT 


1641 


274F 






END 


DEVICES 


1642 


274F 






BEGIN 


MICROMEM 
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HWTEST MICROMEM 

1645 

1646 * MICRO MEMORY TEST PROGRAMS 

1647 « 

1648 » AUTHOR JIRKA HOPPE 

1649 * VERSION 28/5/80 
1650 

165 1 **********#**********♦*#»*»**#****«****#*#¥***** ******«»*»■* 

1652 OEF MICROMEM 

1653 USE END. TEST, LOOPCHAIN, CHAIN, WRITELN. A 

1654 USE U. INSPECT, REREAD 

1655 STARTADR EQU 0000 

1656 ENDADR EQU STARTADR+2048Z 
1657 

1659 

1660 » READ LOOP FROM MICRO MEMORY 

1661 * 

1662 « FORMAT ADDR 'R' SUBADDR 
1663 

1664 274F DE 0F RD.LOOP LDX X.WORD 

1665 2751 BD C0 85 JSR IN. HEX 

1666 2754 17 TBA 

1667 2755 BD CI 90 RD.LOOP1 JSR RUM 

1668 2758 BD C0 46 JSR BREAK 

1669 275B 4D TST A 

1670 275C 27 F7 BEQ RDLOOP1 

1671 275E 39 RTS 
1672 

1573 ********* *#«S*K**###***#****#*W**S* ****#«**** 

1674 

1675 * WRITE LOOP TO MICRO MEMORY 

1676 

1677 « FORMAT ADDR 'V SUBADDR '>' VALUE 

1673 

1679 275F DE 0F WR.LOOP LDX X.WORD 

1688 2761 BD C0 85 JSR IN. HEX 

1681 2764 17 TBA 

1682 2765 86 3E LDAA ='>' 

1683 2767 BD C0 51 JSR W.CH 

1684 276A BD C0 BC JSR IN. BYTE 

1685 276D 97 2E STAA HELP1 

1686 276F 96 2E WR.LOOP1 LDAA HELP1 

1687 2771 BD CI 7B JSR WUM 

1688 2774 BD C0 46 JSR BREAK 

1689 2777 4D TST A 

1690 2778 27 F5 BEQ WRLOOP1 

1691 277A 39 RTS 
1692 

1693 ***##*#** ***************** .****«** *«****«**#* 

1694 * 

1695 * 

1696 » PROCEDURE PATTERN; 

1697 * (« FILL FULL MICRO MEMORY WITH PATTERN 

1698 * THEN COMPARE IT «) 

1699 « BEGIN HELP1:-X; SUB. ID := 'PATTERN'; A := HELP1; 



HWTEST MICROMEM 
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1700 










* 




FOR X := 


STARTADR TO ENDADR DO 




1701 










* 




FOR B 


= TO 4 DO WUM(X, B, A) END; 




1702 










* 




END; 






1703 










ft 




c OR X :« 


TO 1823 DO 




1704 










* 




FOR B 


= 8 TO DO RUM(X, B, A); 




1705 










C 




IF AOHELP1 THEN WRITELN(HELPl); S V I(B, A, X) END 




1706 










* 




END 






1707 










* 




"OR 






1708 










* 


END; 






1709 










* 










1710 


2778 


DE 


0F 




PATTERN1 LDX 


X.WORD 




1711 


277D 


DF 


2E 




PATTERN 


STX 


HELP1 




1712 


277F 


CE 


27 


BD 






LDX 


=PATTEXT 




1713 


2782 


DF 


0D 








STX 


SUB, ID 




1714 


2784 


96 


2F 








LDAA 


HELP1+1 




1715 


2786 


CE 


00 08 






LDX 


=STARTADR 




1716 


2789 


5F 






FORPAT1 


CLR 


B 




1717 


278A 


BD 


CI 


7B 


F0RPAT2 


JSR 


WUM 




1718 


278D 


5C 










INC 


B 




1719 


278E 


CI 


05 








CMPB 


=5 




1720 


2790 


26 


F8 








BNE 


F0RPAT2 




1721 


2792 


08 










INX 






1722 


2793 


8C 


08 


00 






CPX 


=ENDADR 




1723 


2796 


26 


Fl 








BNE 


FORPAT1 




1724 




















1725 


2798 


CE 


00 


00 






LDX 


=STARTADR 




1726 


279B 


5F 






F0RPAT3 


CLR 


B 




1727 


279C 


BD 


CI 


90 


F0RPAT4 


JSR 


RUM 




1728 


279F 


91 


2F 








CMPA 


HELP1+1 




1729 


27A1 


27 


0B 








BEQ 


ENDIFP 




1730 


27A3 


36 










PSH 


A 




1731 


27A4 


96 


2F 








LDAA 


HELP1+1 




1732 


27A6 


BD 


C0 


eg 






JSR 


OUT. BYTE **• EXPECTED VALUE *»** 




1733 


27A9 


BD 


C0 


73 






JSR 


W.CRLF 




1734 


27AC 


32 










PUL 


A 




1735 


27AD 


3F 










SVI 


»** B = BYTEADR, A - ACT VALUE, X = 


ADR 


1736 


27AE 


5C 






ENDIFP 


INC 


B 




1737 


27AF 


CI 


05 








CMPB 


=5 




1738 


27B1 


26 


E9 








BNE 


F0RPAT4 




1739 


27B3 


08 










INX 






1740 


27B4 


8C 


08 


00 






CPX 


=ENDADR 




1741 


27B7 


26 


E2 








BNE 


F0RPAT3 




1742 


27B9 


BD 


20 


4D 






JSR 


END, TEST 




1743 


27BC 


39 










RTS 






1744 










* 










1745 


27BD 


50 


41 


54 


PATTEXT 


BYTE 


' PATTERN', 






27C0 


54 


45 


52 














27C3 


4E 


00 














1746 










* 










1747 










****««« %«£»«*##********Kff*S«»*««*#$«*#*#««»«i»$«8Si*«««#$}3( 




1748 










* 










1749 










* 


PROCEDURE ADRTEST; 




1750 










« 


(• 


WRITE ON 


LOCATION X := X«HELP1; 




1751 










* 




READ AND 


COMPARE IT AGAIN «) 




1752 










» 


BEGIN HELP1 


:= X; SUB. ID := 'ADR'; HELP2 :-B; 




1753 










* 


FOR X := 


STARTADR TO ENDADR DO 




1754 










* 




FOR B : 


= TO 4 DO 





HWTEST 



MICROMEM 
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1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 

1808 
1809 
1810 



27C5 
27C7 
27C9 
27CC 
27CE 
27D1 
27D4 
27D5 
27D7 
27D9 
27DB 
27DE 
27DF 
27E1 
27E3 
27E4 
27E7 

27E9 
27EC 
27EF 
27F0 
27F2 
27F4 
27F6 
27F9 
27FB 
27FD 
27FE 
2800 
2803 
2806 
2807 
2808 
2809 
280B 
280D 
280E 
2811 
2813 

2816 
2819 



DE 0F 
DF 2E 
CE 28 16 
DF 0D 
7F 00 30 
CE 00 00 
5F 

96 30 
9B 2F 

97 30 

BD CI 7B 

5C 

CI 05 

26 F2 

08 

8C 08 00 

26 EB 

7F 00 30 
CE 00 00 
5F 

96 30 
9B 2F 

97 30 

BD CI 90 
91 30 

27 0B 
36 

96 30 

BD C0 C9 

BD C0 78 

32 

3F 

5C 

CI 05 

26 E3 

08 

8C 08 00 

26 DC 

7E 20 4D 

41 44 52 
00 



A := HELP2 := HELP2+HELP1; WUM(X, B, A); 
END 
END; 

HELP2 :- 

FOR X := START ADR TO ENDADR DO 
FOR B := TO 4 DO HELP2 := HELP2+HELP1; RUM(X, B, A); 

IF AOHELP2 THEN VRITELN(HELP2); S V I(B, A, X); 
END 



END 
« END; 

* 

ADRTEST1 

ADRTEST 



FOR ADR 1 
F0RADR2 



LDX 

STX 

LDX 

STX 

CLR 

LDX 

CLR 

LDAA 

ADDA 

STAA 

JSR 

INC 

CMPB 

BNE 

INX 

CPX 

BNE 



CLR 
LDX 
CLR 
LDAA 
ADDA 
STAA 
JSR 
CMPA 
BEQ 
PSH 
LDAA 
JSR 
JSR 
PUL 
SWI 
ENDIFADR INC 
CMPB 
BNE 
INX 
CPX 
BNE 
JMP 

* 

ADRTEXT BYTE 



F0RADR3 
F0RADR4 



X.WORD 

HELP1 

= ADRTEXT 

SUB. ID 

HELP2 

=STARTADR 

B 

HELP2 

HELP1+1 

HELP2 

WUM 

B 

=5 

F0RADR2 

=ENDADR 
FOR ADR 1 

HELP2 

=STARTADR 

B 

HELP2 

HELP1+1 

HELP2 

RUM 

HELP2 

ENDIFADR 

A 

HELP2 

OUT. BYTE 

V.CRLF 

A 



B 

=5 

F0RADR4 

=ENDADR 
F0RADR3 
END. TEST 

'ADR',0 



««» EXPECTED VALUE »*«* 



... b - BYTE ADR, A = ACT VALUE, X - ADR 



*#£******#** *&****#**#**ac**S*S**&*****«#**&«*#* « &##■*# W ** * 



HWTEST MICROMEM 
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1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1839 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 



281A 



281A 
281C 
281E 
2821 
2823 
2825 
2827 
282A 
282C 
282F 
2832 
2835 
2837 
2839 
283C 
283F 
2842 
2844 
2846 
2847 
2849 
284B 
284C 
284E 



DE 0F 
DF 2E 
BD C0 85 
81 04 
2E F9 
97 30 
BD C0 62 
D6 30 
BD CI 99 
BD C0 C9 
BD C9 24 
81 3A 

26 09 

BD C0 BC 
BD CI 7B 
BD C8 24 
81 2C 

27 01 
39 

CI 04 
26 07 
08 

DF 2E 
86 FF 



INSPECT AND CHANGE MICRO MEMORY 

BEGIN INSP 

DEF U. INSPECT 

FORMAT : 

ADDRESS T SUBADR VALUE [ ':' 

ADDRESS = 4 DIGIT HEX 

SUBADR = . . 4 



NEW VALUE] [ 



PROCEDURE INSPECT 
BEGIN 

CRNT.ADR := X.WORD; 

REPEAT R.CH(A) UNTIL (A>='0') AND (A<-'4'); CRNT. SUBADR := A-'B'; 
LOOP 

A := RUM(CRNT.ADR, CRNT. SUBADR); 

W.CH(' '); OUT.BYTE(A); 

R.CH(A); 

IF A-':' THEN 

IN.BYTE(A); WUM(CRNT.ADR, CRNT. SUBADR, A); R.CH(A) 
END; 
IF A#V THEN EXIT END; 
IF CRNT. SUBADR = 4 THEN INC(CRNT.ADR); CRNT. SUBADR :- -1; END; 
INC (CRNT. SUB ADR); 

W.CRLF; OUT. HEX (CRNT. ADR); V.CH('-'); 
W.CH(CRNT. SUBADR + '0'); W.CH(" ') 
END 
END 
END INSPECT; 



CRNT . ADR EQU 
CRNT.SBADR EQU 



U. INSPECT 



REP2 



LOOP 



ENDIF1 



ENDIF2 



LDX 

STX 

JSR 

CMPA 

BGT 

STAA 

JSR 

LDAB 

JSR 

JSR 

JSR 

CMPA 

BNE 

JSR 

JSR 

JSR 

CMPA 

BEQ 

RTS 

CMPB 

BNE 

INX 

STX 

LDAA 



HELP1 
HELP2 

X.WORD 

CRNT.ADR 

IN. HEX 

=4 

REP2 

CRNT.SBADR 

W.l. BLANK 

CRNT.SBADR 

RUM 

OUT. BYTE 

R.CH 

ENDIF1 
IN. BYTE 
WUM 
R.CH 

_ I I 

ENDIF2 

=4 
ENDIF3 

CRNT.ADR 
=8FF 



GET SUBADR 



READ IT 

A CONTAINS ALREADY THE VALUE 

GET DELIMITER 



GET NEW VALUE 

WRITE MICRO MEMORY; B, X ARE ALREADY SET 

GET DELIMITER 



ANY OTHER DELIMITER THEN ' , ' => EXIT 
COMP CRNT. SUBADR, #4 



INC(CRNT.ADR) 
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HWTEST MICROMEM INSP 

1868 2850 97 30 ST A A CRNT.SBADR CRNT.SUBADR := -1 

1869 2852 7C 00 30 ENDIF3 INC CRNT.SBADR 

1870 2855 BD C0 78 JSR W.CRLF 

1871 2858 BD C2 87 JSR PRINT. X WRITE(ADR) I 

1872 285B 86 2D LDAA ='-' 

1873 285D BD C0 51 JSR W.CH WRITE('-') 

1874 2860 96 30 LDAA CRNT.SBADR 

1875 2862 BD C0 90 JSR OUT. HEX WRITE(SUBADR) 

1876 2865 20 C0 BRA LOOP 

1877 2867 END INSP 
1878 

1880 « 

1881 * COMPARE MICRO CODE WITH HP-CASSETTE (STANDARD HEXADECIMAL CODED 6800-FORMAT) 

1882 «********»*******#*#*«****» 

1883 

1884 * PROCEDURE REREAD 

1885 * VAR EOT: BOOLEAN; (• A-REG, 0=TRUE ») 

1886 * \ 

1887 « PROCEDURE SKIPLINE; 

1888 » BEGIN REPEAT READ(CH) UNTIL CH=CR END; 
1889 

1890 « PROCEDURE READBLOCK; 

1891 « VAR CH : CHAR; (• A-REG «) 

1892 * CHECKSUM, (» HELP1 *) 

1893 * BYTECOUNT : BYTE; (* HELP2 «) 

1894 « ADDR : ADDRESS; (« X-REG «) 

1895 * BEGIN 1: LINEREAD; 

1896 * REPEAT 

1897 * REACH(CH); 

1898 « UNTIL CH = 'S'; 

1899 « READ(CH); 

1900 « EOT := CH = '9'; 

1901 « IF NOT EOT 

1902 » THEN BEGIN 

1903 « INBYTE(BYTECOUNT); 

1904 » CHECKSUM := BYTECOUNT; 

1905 » INWORD(ADDR); 

1906 * CHECKSUM := CHECKSUM + ADDR MOD 40 * ADDR DIV 40; 

1907 » REPEAT 

1908 * INBYTE(A); 

1909 « IF A <> RUM(X,B) THEN 

1910 * WRITELN(ROMVALUE) ; SWI(B, TAPEVALUE.X); 

1911 * SKIP THE REST OF THE LINE; GOTO 1; 

1912 » CHECKSUM :- CHECKSUM + M[ADDR]; 

1913 * ADDR := ADDR + 1; 

1914 * BYTECOUNT := BYTECOUNT - 1; 

1915 * UNTIL BYTECOUNT = 3; 

1916 * INBYTE(CH); (* CHECKSUM «) 

1917 « IF CHECKSUM <> COMPL(CH) 

1918 * THEN BEGIN 

1919 « WSTRING( 'CHECKSUM ERROR'); 

1920 * END; 

1921 * END; .1 

1922 * END READBLOCK; 

1923 * 

1924 * BEGIN (• REREAD ») 



MOTOROLA ASSEMBLER 13/05/82 13.81.57. SEITE NR 41 





HWTEST 




MIC 


;roh 


EM 








1925 










* 


FOR B := TO 


4 DO (« READ 4 FILES «) 


1926 










* 


( 


"SKIP HEADER AND INTERFILE GAP*) 


1927 










« 


LINEREAD; 




1928 










• 


REPEAT READ(CH); 


1929 










* 




IF CH=CR THEN LINEREAD END; 


1930 










* 


UNTIL CH - 


S'; 


1931 










* 


REPEAT READ(CH) UNTIL CH = CR; 


1932 










* 


REPEAT 




1933 










* 




READBLOCK; 




1934 










* 


UNTIL EOT; 




1935 










* 


END 




1936 










* 


END REREAD; 




1937 


















1938 


2867 










BEGIN TAPE. CMP 




1939 












DEF 


REREAD 




1940 


















1941 


2867 


BD 


E0 


03 


SKIP. LINE 


JSR 


READ.CH 




1942 


286A 


81 


BD 






CMPA 


=CR 




1943 


286C 


26 


F9 






BNE 


SKIP. LINE 




1944 


286E 


39 








RTS 






1945 










* 








1946 










READ. BLOCK 


EQU 


* 




1947 


286F 










BEGIN READBLOCK 




1948 


286F 


BD 


C0 


FB 


REPEATS 


JSR 


LINE. READ 




1949 


2872 


BD 


E0 


03 


REPEAT1 


JSR 


READ.CH 


SKIP UNTIL 'S' 


1950 


2875 


81 


53 






CMPA 


= 'S" 




1951 


2877 


26 


F9 




UNTIL1 


BNE 


REPEAT1 




1952 


2879 


BD 


E0 


03 




JSR 


READ.CH 




1953 


















1954 


287C 


80 


39 






SUBA 


= '9' 




1955 


287E 


36 








PSH 


A 


SAVE EOF INFORMATION 


1956 


287F 


27 


49 




IF1 


BEQ 


ENDIF 




1957 


2881 


BD 


E0 


1A 


THEN1 


JSR 


READ. BYTE 


BYTECOUNT 


1958 


2884 


36 








PSH 


A 




1959 


2885 


86 


03 






SUBA 


=3 


SUBSTRACT BYTECNT, 2 BYTES ADDRESS 


1960 


2887 


97 


39 






STAA 


HELP2 




1961 


2889 


32 








PUL 


A 




1962 


288A 


CE 


80 


01 




LDX 


=X.SAVE 




1963 


288D 


BD 


E0 


27 




JSR 


READ. WORD 


ADDRESS 


1964 


2890 


A3 


80 






ADDA 


0,X 




1965 


2892 


AB 


01 






ADDA 


i,x 




1966 


2394 


97 


2E 






STAA 


HELP1 


XSUM:= BYTECOUNT + ADDR(HI) + ADDR( 


1967 


2896 


DE 


01 






LDX 


X.SAVE 




1968 


2898 


BD 


E0 


1A 


REPEAT2 


JSR 


READ. BYTE 


DATA 


1969 


289B 


97 


32 






STAA 


HELP3 


HELP3 :- TAPE DATA 


1970 


289D 


BD 


CI 


90 




JSR 


RUM 


READ MICRO MEM; X,B ARE ALREADY SET 


1971 


28A0 


91 


32 






CMPA 


HELP3 




1972 


28A2 


27 


0C 






BEQ 


U.ROM. OK 




1973 


28A4 


36 








PSH 


A 


SKIP THE REST OF THE LINE 


1974 


28A5 


8D 


C0 






BSR 


SKIP. LINE 




1975 


28A7 


32 








PUL 


A 




1976 


28A8 


BD 


20 


87 




JSR 


VRITELN.A 


ROM VALUE****®*************®*** 


1977 


28AB 


96 


32 






LDAA 


HELP3 




1978 


28AD 


3F 








SWI 




B=BYTE ADR; A=TAPE VALUE; X-ADDRESS 


1979 


28AE 


20 


BF 






BRA 


REPEATS 


TRY NEW LINE 


1980 


















1981 


28B0 


96 


32 




U.ROM. OK 


LDAA 


HELP3 





HWTEST MICROMEM TAPECMP 



1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1998 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2080 
2081 
2002 
2003 
2084 
2085 
2806 
2087 
2888 
2089 
2010 
2811 
2812 
2813 
2814 
2815 
2816 
2017 
2818 
2019 
2020 
2021 
2822 
2023 
2024 
2025 
2026 



2027 



2828 
2829 
2030 
2031 
2032 
2033 
2034 



28B2 
28B4 
28B6 
28B7 
28BA 
28BC 
28BF 
28C0 
28C2 
28C4 
28C7 

28CA 
28CB 

28CC 



28CC 
28CF 

28D1 
28D3 
28D6 
28D9 
28DB 
28DD 
28E0 
28E2 

28E4 
28E7 
28E9 

28EB 
28ED 
28EE 



28F3 
28F4 
28F6 
28F8 

28F9 
28FC 
28FF 
2902 
2905 
2908 
290B 



290B 
290E 



9B 2E 

97 2E 

08 

7A 80 30 

26 DC 

BD E0 1A 

43 

91 2E 

27 06 

CE 28 F9 
BD C0 6A 

32 

39 



CE 29 02 

DF BD 

C6 00 
BD C0 FB 
BD E0 03 
81 0D 
26 83 
BD C8 FB 
81 53 
26 F2 

BD E0 03 
81 0D 
26 F9 

8D 82 
4D 
26 FB 



28F0 BD 28 67 



5C 

CI 04 
2F DB 

39 

58 53 55 
4D 20 45 
52 52 08 
55 52 4F 
4D 20 43 
4D 58 80 
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XSUM + A 



UNTIL2 



IF2 

THEN2 

ENDIF 



READBLOCK 




ADDA 


HELP1 




STAA 


HELP1 


XSUM := 


INX 






DEC 


HELP2 




BNE 


REPEAT2 




JSR 


READ. BYTE 


CHECKSUM 


COM 


A 




CMPA 


HELP1 




BEQ 


ENDIF 




LDX 


=MESS1 




JSR 


W, STRING 




EQU 


* 




PUL 


A 


RESAVE E 


RTS 






END 


READBLOCK 





REREAD LDX ~CMP.TXT 

STX SUB. ID 

**«» FOLLOWING VALUE COULD BE PATCHED TO READ THE N'TH FILE **** 

LDAB =0 WE START READING THE FIRST FILE 

SKIP.HDR0 JSR LINEREAD SKIP THE HEADER LINE 

SKIP.HDR1 JSR READ.CH 

CMPA =CR 

BNE SKIP.HDR2 

JSR LINEREAD 

SKIP.HDR2 CMPA ='S' 

BNE SKIP.HDR1 

SKIP.HDR3 JSR READ.CH SKIP THE FIRST LINE 

CMPA =CR 

BNE SKIP.HDR3 



REPEAT 
UNTIL 



BSR READ. BLOCK 

TST A END OF TAPE 

BNE REPEAT 



MESS1 



CMPTXT 



JSR SKIP. LINE 

INC B 

CMPB =4 

BLE SKIP.HDR8 

RTS 

BYTE 'XSUM ERR',0 



BYTE 'UROM CMP' ,8 



INCREMENT THE FILE NUMBER 



CE 29 8A 
BD 20 15 



END TAPE. CMP 

* 

* 

* LOOP ALL TEST USING CHAIN 
LOOPTEST LDX =UCHAIN 
JSR CHAIN 
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HWTEST MICROMEM 

2035 2911 20 F8 BRA LOOPTEST 

2036 

2037 ***S*S!*iltii:***«;***#ta«*****ft***»**»*#!|iit»SS*******»*#iB***ii;**iS;* 

2038 

2039 * ENTRY POINT TO THE MICRO MEMORY MONITOR 

2040 

2041 *****#*************#*##********************* *****#***##*#** 

2042 



2043 


2913 


CE 


29 


83 


MICROMEM LDX 


=MICROTEXT 


2044 


2916 


DF 


03 




STX 


MAIN. ID 


2045 


2918 


CE 


29 


IE 


LDX 


=MICRO.MENU 


2046 


291B 


7E 


C3 


91 


JMP 


COMMANDS 


2047 










« 




2048 


291E 


07 






MICROMENU BYTE 


7 


2049 


291F 


52 


20 


52 


BYTE 


'R READLOOP',0 




2922 


45 


41 


44 








2925 


4C 


4F 


4F 








2928 


50 


00 








2050 


292A 


27 


4F 




WORD 


RD.LOOP 


2051 


292C 


57 


20 


57 


BYTE 


"V WRITELOOP',0 




292F 


52 


49 


54 








2932 


45 


4C 


4F 








2935 


4F 


50 


ee 






2052 


2938 


27 


5F 




WORD 


WR.LOOP 


2053 


293A 


50 


20 


50 


BYTE 


'P PATTERN 1 ,8 




293D 


41 


54 


54 








2940 


45 


52 


4E 








2943 


00 










2054 


2944 


27 


7B 




WORD 


PATTERN1 


2855 


2946 


56 


20 


41 


BYTE 


'V ADRESSING',8 




2949 


44 


52 


45 








294C 


53 


53 


49 








294F 


4E 


47 


00 






2056 


2952 


27 


C5 




WORD 


ADRTEST1 


2057 


2954 


49 


20 


49 


BYTE 


'I INSPECT' ,0 




2957 


4E 


53 


50 








295A 


45 


43 


54 








295D 


00 










2058 


295E 


28 


1A 




WORD 


U. INSPECT 


2059 


2960 


55 


20 


55 


BYTE 


'U UROM COMPARE ',0 




2963 


52 


4F 


4D 








2966 


28 


43 


4F 








2969 


4D 


50 


41 








296C 


52 


45 


00 






2060 


296F 


28 


CC 




WORD 


REREAD 


2061 


2971 


58 


20 


45 


BYTE 


'X EXECUTE CHAIN ',0 




2974 


58 


45 


43 








2977 


55 


54 


45 








297A 


20 


43 


48 








297D 


41 


49 


4E 








2980 


00 










2062 


2981 


29 


0B 




WORD 


LOOPTEST 


2063 










« 




2064 


2983 


4D 


49 


43 


MICROTEXT BYTE 


'MICROM',0 




2986 


52 


4F 


4D 








2989 


00 










2065 










* 


MOTOROLA ASSEMBLER 




HWTEST 




MICROMEM 




2066 


298A 


04 






UCHAIN BYTE 


U.CH.LEN 


2067 


298B 


27 


70 




WORD 


PATTERN 


2068 


298D 


00 


00 




WORD 


PATTERN(0) 


2069 


298F 


27 C7 




WORD 


ADRTEST 


2070 


2991 


00 


01 




WORD 


1 ADRTEST(l) 


2071 


2993 


27 


7D 




WORD 


PATTERN 


2072 


2995 


FF 


FF 




WORD 


0FFFF PATTERN(FF) 






SEITE NR 44 



2073 


2997 


27 C7 


WORD 


ADRTEST 


2074 


2999 


00 31 


WORD 


31 ADRTEST(31) 


2075 






U.CH.LEN EQU 


•-1-UCHAIN/4 


2076 






* 




2077 


299B 




END 


MICROMEM 


2078 


299B 




END 


HWTEST 



